FoxPro/Visual FoxPro - Ayuda con VFZIP, VFUNZIP

Baje estos OCX para checar si me pueden servir en mi proyecto, pero tengo un problema no he podido encontrar algun ejemplo en VFP, encontre un Link para Davphantom, pero la pagina esta en mantenimiento y no lo he podido bajar, si alguien tiene el archivo, que me lo pueda pasar, se lo agradeceria mucho. . . .

http://www.vb-tools.itgo.com/ax.htm

Suerte

ya tengo los ocx, muchas gracias, pero lo que no tengo es un ejemplo en VFP. .

ah ok entonces que es lo que pretendes hacer ....?

Solamente quiero tener un ejemplo en el que basarme, por que la verdad no le entendi muy bien, en los que estan en VFP, espero que puedas ayudar. . .

Hazlo de la siguiente manera
1- Lo primero cuando bajes el activex es que debes registrarlo algo asi:
c:\WINDOWS\system32\regsvr32.exe C:\vftest\vfzip.ocx

Partí de la idea de que esta en un folder llamado c:\vrtest

2- Agregarlo a la lista de controles activex de VFP. Ve al menu Herramientas, opciones y controles, ahi lo selecciona para que aparezca en la barra de activex (que es la misma de los controles), espero que no te pierdas en ese paso.

3- Crea un formulario y agrega ese control al formulario.

4- Crea un boton y en el boton dentro del Click poner:
foder_datos = "C:\vftest\datos"
DIMENSION arreglo[1,5]

Thisform.olecontrol1.zipFileName = "c:\archivos.zip"
SET DEFAULT TO &foder_datos

ADIR(arreglo,"*.dbf'")
FOR i = 1 TO ALEN(arreglo,1)
archivo = arreglo[i,1]
Thisform.olecontrol1.addFileToZip("&archivo")

ENDFOR

Te envio el pequeño codigo que hice para comprimir.

SI me mandas el archivo que me comentas mi correo es [email protected] muchas gracias. . . . . .

Enviado. Es un ejemplo corto pero desmuestra que funciona.