diff --git a/TESTS/fxu_lib_objetos_y_funciones_de_soporte.prg b/TESTS/fxu_lib_objetos_y_funciones_de_soporte.prg
index b74f346..bdf5490 100644
--- 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