FoxPro/Visual FoxPro - Archivos Zip desde VFP con WIn Xp

Este codigo permite comprimir en un archivo .zip el contenido de una carpeta. Solo funciona para WIN XP.

cFileZip = "C:destino\backup.ZIP" &&Indicar como se llamará el archivo .zip y su ruta
cSource = "C:\origen\" &&Folder que contiene los datos
strtofile(chr(0x50)+chr(0x4B)+chr(0x05)+chr(0x06)+replicate(chr(0),18),cFileZip)
o=CREATEOBJECT("shell.application")
FOR EACH ofile IN o.NameSpace(cSource).items
o.NameSpace(cFileZip).copyhere(ofile)
ENDFOR

Hola a todos.

Efectivamente este código funciona muy bien...

Ahora quisiera saber ¿como descomprimir el archivo ZIP generado usando solo ordenes de VFP?

Muchas Gracias.