romfast/foxbin2prg
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Changeset: 132 - Agregado script para normalización de nombres de archivo en modo batch

Browse Source
This commit is contained in:
fernando
2014-01-07 00:48:25 +01:00
parent e16c75d782
commit 850422184b
7 changed files with 110 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
foxbin2prg.prg
View File

@@ -944,12 +944,13 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
THIS.writeLog( '- Se ha solicitado capitalizar el archivo [' + tcFileName + ']' )
lcLog = ''
DO (tcEXE_CAPS) WITH tcFileName, '', 'F', lcLog, .T.
IF ADIR( laFile, tcFileName, '', 1 ) > 0 AND laFile(1,1) <> JUSTFNAME(tcFileName)
toFSO.MoveFile( FORCEPATH( laFile(1,1), JUSTPATH(tcFileName) ), tcFileName )
THIS.writeLog( ' => Se renombrar<61> a [' + tcFileName + ']' )
ELSE
THIS.writeLog( ' => No se renombrar<61> a [' + tcFileName + '] porque ya estaba correcto.' )
ENDIF
*IF ADIR( laFile, tcFileName, '', 1 ) > 0 AND laFile(1,1) <> JUSTFNAME(tcFileName)
* toFSO.MoveFile( FORCEPATH( laFile(1,1), JUSTPATH(tcFileName) ), tcFileName )
* THIS.writeLog( ' => Se renombrar<61> a [' + tcFileName + ']' )
*ELSE
* THIS.writeLog( ' => No se renombrar<61> a [' + tcFileName + '] porque ya estaba correcto.' )
*ENDIF
THIS.writeLog( lcLog )
ENDPROC