
Backup y restore
Publicado por Marco (19 intervenciones) el 05/03/2014 04:57:36
buenas solo quiero pedir un favor como hago el boton de restaurar yde un backup aunque yo tengo el sgt codigo
en el boton del backup
y en el boton de restaurar
mi pregunta es esta bien el codigo o tengo que modificarlo por que la verdad el restaurar no funciona
gracias por todo
en el boton del backup
1
2
3
4
5
6
7
8
9
10
11
12
13
14
RUTA=GETDIR()
IF EMPTY(RUTA)
RETURN
ELSE
CLOSE TABLES ALL
CLOSE DATABASES ALL
RUN COPY *.DBF &RUTA
RUN COPY *.CDX &RUTA
RUN COPY *.FPT &RUTA
RUN COPY *.DBC &RUTA
RUN COPY *.DCX &RUTA
RUN COPY *.DCT &RUTA
MESSAGEBOX("COPIA DE RESPALDO FUE CREADA CON EXITO",32,"ATENCION")
ENDIF
y en el boton de restaurar
1
2
3
4
5
6
7
8
9
RUTA=GETDIR()
IF EMPTY(RUTA)
RETURN
ELSE
CLOSE TABLES ALL
CLOSE DATABASES ALL
RUN copy &RUTA\*.* SYS(5)+"\.\"
MESSAGEBOX("PROCESO DE RESTAURACION FUE CREADA CON EXITO",32,"ATENCION")
ENDIF
mi pregunta es esta bien el codigo o tengo que modificarlo por que la verdad el restaurar no funciona
gracias por todo
Valora esta pregunta


0