FoxPro/Visual FoxPro - COMPRIMIR FICHEROS !!!!

Hola, alguien sabe decirme como puedo hacer desde foxpro para que me comprima en un zip, un directorio que yo le diga y sus directorios con sus correspondientes archivos, hay ejemplos pero solo de comprimir ficheros y si hay subdirectorios que.

Muchas gracias.

Si tienes una licencia WINZIP, puedes bajar las lineas de comando de las funciones del WINZIP

Suerte

prueba esta rutina:

oZip = CreateObject("WScript.Shell")
oZip.Run("Winzip -a -r -p -ex c:\archivo.zip c:\Dir_a_Comprimir\*.*", 0,.T.)
Release oZip
oZip = Null