schmucke
10 de Diciembre del 2003

hola soy novato en visual foxpro 6.0 y necesito ejecutar desde mi aplicacion hecha en foxpro el winzip como hago para ejecutarlo.
muchas gracias

Denis Guido
10 de Diciembre del 2003

Hola

yo lo hago de la siguiente manera

local gcDBPath1
close databases all
close tables all
close index all
set resource off
*gcAppPath =sys(5)+sys(2003)
gcDBPath1 = alltrim(gcAppPath)+"datos*.dbf *.cdx *.dbc *.dct *.fpt"
if empty(thisform.archivo.value)
=messagebox("Ruta del directorio no puede ser vacio",16,"Respaldo")
thisform.archivo.setfocus
return
else
wait window "Respaldando el directorio base de datos..." at 4,15 timeout 2
run /N archiv~1winzipwinzip32 -a &archivo &gcDBPath1
endif
thisform.archivo.setfocus
thisform.Archivo.value:Es donde va el nombre del archivo.
por ejemplo respaldo

debes poner un cuadro de texto con el nombre archivo y en la propiedad Controlsource poner Archivo
Controlsource=Archivo

schmucke
10 de Diciembre del 2003

gracias Denis Guido