Backup con VFP y un copresor gratuito
Saludos,
Mi pregunta es: Tengo una aplicación en VFP 7 y necesito hacer backup de la BD con una herramienta de compresión pero activandola desde el programa, me recomendaron EasyZip ¿Cómo puedo hacer esto?, ¿Qué me sugieres?
Muchas gracias,
Mi pregunta es: Tengo una aplicación en VFP 7 y necesito hacer backup de la BD con una herramienta de compresión pero activandola desde el programa, me recomendaron EasyZip ¿Cómo puedo hacer esto?, ¿Qué me sugieres?
Muchas gracias,
1 Respuesta
Respuesta de tijuil
1
Puedes hacerlo con muchas cosas!.
Desde el viejo programa PKZIP (que por cierto es buenísimo!), pasando por Winzip y EasyZip. Lo que tu quieras... te doy un ejemplo de como lo hago yo con WinZip:
Close database all
**SI NO EXISTE, CREO EL DIRECTORIO
if not directory(c_netpath+"\Backup")
c_backup_directory = c_netpath+"\Backup"
md &c_backup_directory
endif
c_backup_filename=alltrim(c_netpath+"\Backup\NOMBREZIP"+strtran(dtoc(date()),"/",""))
c_winzip_filepath="c:\archivos de programa\winzip\winzip32.exe"
if file(c_winzip_filepath)
c_data_source = c_netpath+"\*.*"
run /n "c:\archivos de programa\winzip\winzip32.exe" -min -a &c_backup_filename &c_data_source
else
Messagebox("Necesita Instalar Winzip para ejecutar esta opción", 48,_screen. Caption)
Endif
Recuerda que algunas de estas son variables que traigo de otro lado.
Desde el viejo programa PKZIP (que por cierto es buenísimo!), pasando por Winzip y EasyZip. Lo que tu quieras... te doy un ejemplo de como lo hago yo con WinZip:
Close database all
**SI NO EXISTE, CREO EL DIRECTORIO
if not directory(c_netpath+"\Backup")
c_backup_directory = c_netpath+"\Backup"
md &c_backup_directory
endif
c_backup_filename=alltrim(c_netpath+"\Backup\NOMBREZIP"+strtran(dtoc(date()),"/",""))
c_winzip_filepath="c:\archivos de programa\winzip\winzip32.exe"
if file(c_winzip_filepath)
c_data_source = c_netpath+"\*.*"
run /n "c:\archivos de programa\winzip\winzip32.exe" -min -a &c_backup_filename &c_data_source
else
Messagebox("Necesita Instalar Winzip para ejecutar esta opción", 48,_screen. Caption)
Endif
Recuerda que algunas de estas son variables que traigo de otro lado.
