FoxPro/Visual FoxPro - descomprimir

   
Vista:

descomprimir

Publicado por noe (23 intervenciones) el 21/06/2014 16:36:16
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?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

descomprimir

Publicado por Fidel José (558 intervenciones) el 21/06/2014 17:16:32
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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

descomprimir

Publicado por noe (23 intervenciones) el 27/06/2014 18:08:11
Hola Fidel !!!

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

GRACIAS
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar