Changeset: 261 fdbozzo - 28/05/2014 23:24:12:
This commit is contained in:
@@ -101,7 +101,14 @@ DEFINE CLASS CL_FXU_CONFIG AS CUSTOM
|
|||||||
|
|
||||||
*----------------------------------------------------------------------------------------
|
*----------------------------------------------------------------------------------------
|
||||||
PROCEDURE SETUP_COMUN
|
PROCEDURE SETUP_COMUN
|
||||||
ERASE (FORCEPATH( '*.*', THIS.cPathDatosTest ) )
|
IF DIRECTORY( THIS.cPathDatosTest )
|
||||||
|
ERASE (FORCEPATH( '*.*', THIS.cPathDatosTest ) )
|
||||||
|
ELSE
|
||||||
|
TRY
|
||||||
|
MKDIR (THIS.cPathDatosTest)
|
||||||
|
CATCH
|
||||||
|
ENDTRY
|
||||||
|
ENDIF
|
||||||
ENDPROC
|
ENDPROC
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user