FoxPro/Visual FoxPro - descomprimir

hola foro !!!
me envia un archivo comprimido winrar lo descomprimo sin problemas con el siguiente codig

nom_arc=GetFile("*", "Archivo:", "Aceptar",0, "Examinar")
ruta="C:\sipabe\archivo_paso"
Run /N1 unrar.exe x -O+ "&nom_arc" "&ruta"

lo descomprimo sin nimgun problema, pero ahora nos envian el archivo en winrarzip como lo puedo descomprimir?

Te envío uno de las dll que generalmente se usan (xStandard.zip). No sé si hay alguna versión más moderna.
Para registrarlo, en el paquete esta install.bat
Para usarlo, están las explicaciones de Luis María Guayán sobre como funciona.

Ejemplo rápido
loZip=CREATEOBJECT("xstandard.zip")
lozip.UnPack("c:\Theodore\Xcompo\ExcelCraig\VFPExcel2007Functions.zip","c:\theodore\temp\")
lozip=null

* En general
lcComprimido=Getfile("ZIP")
lcCarpeta=GetDir(fullpath(""),"Carpeta","Destino de Descompresión",48)
if !empty(lcComprimido) AND !empty(lcCarpeta)
lozip=CreateObject("Xstandard.zip")
loZip.Unpack(lcComprimido , Addbs(lcCarpeta) )
lozip=null
ENDIF

Fijate que la carpeta de destino se usa como en el FileSystemObject con la barra invertida final.

• XZip.zip(68,4 KB)

Hola Fidel !!!

gracias por el aporte con windows xp funciono de maravilla pero con win 7 64 bits no ¿como le puedo hacer ?

GRACIAS