Hola amigos :vientos: stoy desarrollando un sistema en visual fox pro, quiero que mi programa permita realizar respaldo de la base de datos y las tablas tengo 2 botones uno (cambiar directorio) esto hace que se escoja un directorio... y otro (generar respaldo) es el que tiene que realizar el respaldo, copiar la BD y las tablas a una carpeta predetermina si es que no se lo cambia con el boton (cambiar directorio) en fin este es el codigo de los botones pero no cumplen con lo que quiero que realicen..
Boton: Cambiar Directorio
lcDir2=getDir('c:\','¿Donde quiere hacer el respaldo?','Elegir',1+64)
Boton: Generar Respaldo
STORE "" TO VDIREC, VDIREC1
V1 = ALLTRIM(STR(DAY(DATE())))
v2 = ALLTRIM(STR(MONTH(DATE())))
VNOM = "DBF"+V1+V2
VDIREC = "C:\DISA\BACKUP\"
VDIREC1 = ALLTRIM(VDIREC)
RUN PKZIP &VDIREC1&VNOM *.DBF *.CDX
RUN PKZIP COPIA *.DBF *.CDX
RUN PKZIP &VNOM *.DBF *.CDX
Lo que tendria que estar realizando es lo siguiente:
Generar un archivo comprimido conteniendo la base de datos y las tablas que estan en la siguiente ruta: C:\Disa\Datos\
a la carpeta indicada en la variable VDIREC con el nombre de VNOM..
Gracias por su ayuda...:chavo:
Boton: Cambiar Directorio
lcDir2=getDir('c:\','¿Donde quiere hacer el respaldo?','Elegir',1+64)
Boton: Generar Respaldo
STORE "" TO VDIREC, VDIREC1
V1 = ALLTRIM(STR(DAY(DATE())))
v2 = ALLTRIM(STR(MONTH(DATE())))
VNOM = "DBF"+V1+V2
VDIREC = "C:\DISA\BACKUP\"
VDIREC1 = ALLTRIM(VDIREC)
RUN PKZIP &VDIREC1&VNOM *.DBF *.CDX
RUN PKZIP COPIA *.DBF *.CDX
RUN PKZIP &VNOM *.DBF *.CDX
Lo que tendria que estar realizando es lo siguiente:
Generar un archivo comprimido conteniendo la base de datos y las tablas que estan en la siguiente ruta: C:\Disa\Datos\
a la carpeta indicada en la variable VDIREC con el nombre de VNOM..
Gracias por su ayuda...:chavo: