- Borrar archivo ERR cuando se usa UseClassPerFile

2015-03-26 01:36:26 +01:00
parent 80baca7f03
commit 26e1354328
2 changed files with 2 additions and 1 deletions
--- a/foxbin2prg.exe
+++ b/foxbin2prg.exe
--- a/foxbin2prg.prg
+++ b/foxbin2prg.prg
@@ -2469,7 +2469,6 @@ DEFINE CLASS c_foxbin2prg AS SESSION

 							.writeLog( '> InputFile ' + loLang.C_IS_A_FILE_LOC )
 							tc_InputFile	= LOCFILE(tc_InputFile)
-							ERASE ( tc_InputFile + '.ERR' )

 							DO CASE
 							CASE .l_Recompile AND LEN(tcRecompile) > 3 AND DIRECTORY(tcRecompile)
@@ -2882,6 +2881,8 @@ DEFINE CLASS c_foxbin2prg AS SESSION
 					ENDCASE
 				ENDIF

+				ERASE ( .c_InputFile + '.ERR' )
+
 				IF NOT EMPTY(tcOriginalFileName)
 					tcOriginalFileName	= loFSO.GetAbsolutePathName( tcOriginalFileName )
 				ENDIF