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

- Agregado backup del archivo de LOG

Browse Source
This commit is contained in:
fdbozzo
2015-04-06 19:52:27 +02:00
parent cd159b5b05
commit 0fbdce0730
2 changed files with 9 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
foxbin2prg.exe
View File

Binary file not shown.

11
foxbin2prg.prg
View File

@@ -757,8 +757,15 @@ DEFINE CLASS c_foxbin2prg AS SESSION
DECLARE INTEGER WriteFile IN Win32API INTEGER hFile, STRING @ cBuffer ; DECLARE INTEGER WriteFile IN Win32API INTEGER hFile, STRING @ cBuffer ;
, INTEGER nBytes, INTEGER @ nBytes2, INTEGER @ nBytes3 , INTEGER nBytes, INTEGER @ nBytes2, INTEGER @ nBytes3
ERASE (THIS.c_ErrorLogFile) IF FILE(THIS.c_ErrorLogFile) THEN
ERASE (THIS.c_LogFile) ERASE (THIS.c_ErrorLogFile + '.BAK')
RENAME (THIS.c_ErrorLogFile) TO (THIS.c_ErrorLogFile + '.BAK')
ENDIF
IF FILE(THIS.c_LogFile) THEN
ERASE (THIS.c_LogFile + '.BAK')
RENAME (THIS.c_LogFile) TO (THIS.c_LogFile + '.BAK')
ENDIF
lcSys16 = SYS(16) lcSys16 = SYS(16)
IF LEFT(lcSys16,10) == 'PROCEDURE ' IF LEFT(lcSys16,10) == 'PROCEDURE '