Changeset: 261 fdbozzo - 28/05/2014 23:24:12:

2014-05-28 23:24:25 +02:00
parent 46789caf4c efe3f9e8eb
commit 88337455f0
1 changed files with 8 additions and 1 deletions
--- a/TESTS/fxu_lib_objetos_y_funciones_de_soporte.prg
+++ b/TESTS/fxu_lib_objetos_y_funciones_de_soporte.prg
@@ -101,7 +101,14 @@ DEFINE CLASS CL_FXU_CONFIG AS CUSTOM

 	*----------------------------------------------------------------------------------------
 	PROCEDURE SETUP_COMUN
-		ERASE (FORCEPATH( '*.*', THIS.cPathDatosTest ) )
+		IF DIRECTORY( THIS.cPathDatosTest )
+			ERASE (FORCEPATH( '*.*', THIS.cPathDatosTest ) )
+		ELSE
+			TRY
+				MKDIR (THIS.cPathDatosTest)
+			CATCH
+			ENDTRY
+		ENDIF
 	ENDPROC