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

filename_caps.exe: Agregado reintento de renombrado para intentar prevenir el error esporádico de "Can not create a file that already exists"

Browse Source
This commit is contained in:
fdbozzo
2017-02-19 12:25:37 +01:00
parent 2aac428525
commit ec7b47a336
2 changed files with 39 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

44
FileName_Caps/filename_caps.prg
View File

@@ -44,10 +44,23 @@ RETURN lcFileName
DEFINE CLASS cl_FileName_Caps AS Custom
_memberdata = [<VFPData>] ;
+ [<memberdata name="capitalize" display="Capitalize"/>] ;
+ [<memberdata name="renamefile" display="RenameFile"/>] ;
+ [</VFPData>]
PROCEDURE INIT
DECLARE INTEGER MoveFile IN KERNEL32.DLL STRING lpExistingFileName, STRING lpNewFileName
*DECLARE INTEGER MoveFile IN KERNEL32.DLL STRING lpExistingFileName, STRING lpNewFileName
* DOCUMENTACI<43>N: https://msdn.microsoft.com/es-es/library/windows/desktop/aa365240(v=vs.85).aspx
* dwFlags:
* 1 (0x1) MOVEFILE_REPLACE_EXISTING
* 8 (0x8) MOVEFILE_WRITE_THROUGH
DECLARE INTEGER MoveFileEx IN KERNEL32.DLL STRING lpExistingFileName, STRING lpNewFileName, INTEGER dwFlags
DECLARE INTEGER GetLastError IN KERNEL32.DLL
DECLARE Sleep IN KERNEL32.DLL INTEGER dwMilliseconds
* DOCUMENTACI<43>N: https://msdn.microsoft.com/en-us/library/windows/desktop/ms679351(v=vs.85).aspx
DECLARE INTEGER FormatMessage IN KERNEL32.DLL INTEGER dwFlags, INTEGER lpSource, INTEGER dwMessageId ;
@@ -55,9 +68,10 @@ DEFINE CLASS cl_FileName_Caps AS Custom
_SCREEN.AddProperty("ExitCodeFNC",0)
ENDPROC
PROCEDURE Capitalize
LPARAMETERS tcFileName, tcFileMask, tcFileMaskType, tcLog, tlRelanzarError, tcDontShowErrors
PROCEDURE Capitalize(tcFileName, tcFileMask, tcFileMaskType, tcLog, tlRelanzarError, tcDontShowErrors)
#IF .F.
LOCAL THIS AS cl_FileName_Caps OF 'filename_caps\filename_caps.prg'
#ENDIF
TRY
LOCAL loEx AS EXCEPTION, laMasks(1,4), lcDefinition, lcFileDef, lcMaskDef, laLines(1), lcMenErr ;
, I, X, lcName, lcExt, lcPath, lcFileName, laFile(1,5), lcLogFile, lcSys16, lnPosProg, lnRet
@@ -175,7 +189,7 @@ DEFINE CLASS cl_FileName_Caps AS Custom
*MESSAGEBOX( 'lcLogFile = ' + TRANSFORM(lcLogFile),0+4096, 'Error' )
IF ADIR( laFile, lcFileName, '', 1 ) > 0 AND laFile(1,1) <> JUSTFNAME(lcFileName)
lnRet = MoveFile( FORCEPATH( laFile(1,1), JUSTPATH(lcFileName) ), lcFileName )
lnRet = THIS.RenameFile( FORCEPATH( laFile(1,1), JUSTPATH(lcFileName) ), lcFileName )
*MESSAGEBOX('(MoveFile) lnRet = ' + TRANSFORM(lnRet),0+4096, 'Error')
IF lnRet = 0 && Failed
@@ -237,4 +251,24 @@ DEFINE CLASS cl_FileName_Caps AS Custom
RETURN lcFileName
ENDPROC
FUNCTION RenameFile(lpExistingFileName as String, lpNewFileName as String) as Integer
* RENAME con reintento. A veces el sistema operativo puede devolver un error en los primeros intentos de renombrado,
* por ejemplo con el error "Can not create a file that already exists"
* FUENTE: http://stackoverflow.com/questions/13025313/why-os-rename-is-raising-an-exception-in-python-2-7
LOCAL lnRet
lnRet = 0
*lnRet = MoveFile( FORCEPATH( laFile(1,1), JUSTPATH(lcFileName) ), lcFileName )
FOR I = 1 TO 10
lnRet = MoveFileEx( lpExistingFileName, lpNewFileName, 0x1 + 0x8 )
IF lnRet != 0
EXIT
ENDIF
Sleep(10)
ENDFOR
RETURN lnRet
ENDFUNC
ENDDEFINE && CLASS cl_FileName_Caps AS Custom