FoxPro/Visual FoxPro - Backup

   
Vista:

Backup

Publicado por Carlos ACS (141 intervenciones) el 27/05/2010 23:18:01
Hola amigos foxeros...
Por favorncesito de su exprta ayuda, estpy buscando un codigoo instrucciones como elaborar un programita para hacer copias de seguridad de bases de datos completo, si es utilizando el winzip mucho mejor... solo lespido algun ejemploo que me indique donde encuentro ejemplos...
Gracias,
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Mauricio

Backup

Publicado por Mauricio (1367 intervenciones) el 28/05/2010 00:08:31
Carlos, yo tengo un backup en un form, aca te mando solo la opcion de usar el backup, espero te sirva:
*
*
luni = 0
v_Unidad = GETDIR()
BU = DTOS(DATE()) && Etiqueta de Respaldo
luni = DRIVETYPE(v_unidad)
IF luni = 2 && Unidad de Diskette
d_unidad = 'BackUp en Diskette'
ELSE
IF luni = 3 && Disco duro
d_unidad = 'BackUp en Disco Duro'
ELSE
IF luni = 4 &&Unidad Extraible o Red
d_unidad = 'BackUp en Extraible o Red'
ELSE
IF luni = 5 &&CD-ROM
d_unidad = 'BackUp en CD-ROM'
ENDIF
ENDIF
ENDIF
ENDIF
*
IF MESSAGEBOX('Proceso de ' + d_unidad + CHR(13) + ;
'Confirmar proceso... Continuar?',0 + 256 + 1,'BackUp de Contabilidad') = 2
=MESSAGEBOX('Proceso abortado por el usuario...',0 + 0 + 0,'BackUp de Contabilidad')
CLOSE TABLES ALL
RETURN .F.
ENDIF
*
v_unidad = v_unidad + bu
!PKZIP -EX &v_unidad *.dbf, *.cdx
WAIT 'Proceso finalizado...' WIND AT 15,55 TIME 2
*
*RELEA THISFORM
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar