Problemas con VFPcompression al descomprimir

[ZeRoberto]

Tengo un zip que contiene un archivo dummy que me da error al momento de querer descomprimir el zip

El codigo que utilizo es este, pero me crea un directorio dummy y el archivo siguiente no lo descomprime y me retorna .f. como error en la descompresion.

Clear

Set Library To vfpcompression.fll

lcFileName = FullPath(Curdir() + "R-10011637057-01-F001-0000001.zip")

? UnzipQuick(lcFileName, Curdir())

Como puedo hacer para solucionar este problema?

Saludos

PD.- Adjunto un archivo rar con los prgs para el testeo

VFP Unlimited - Canal de Youtube

https://www.youtube.com/channel/UCkUIcHDsOdMUIdhYNO985JQ

[Foxshin]

Hi :D

El archivo que adjuntaste no se puede descomprimir, pero bueno, si solamente quieres descomprimir el archivo XML que esta en el archivo zip también podrías usar algo como ésto:

CLEAR
SET LIBRARY TO vfpcompression.fll
LOCAL lcFileName AS String, lcFolderName AS String, llUnZipOk AS Logical
m.lcFileName   = FULLPATH(CURDIR() + "R-10011637057-01-F001-0000001.zip")
m.lcFolderName = FULLPATH(CURDIR())
**
m.llUnZipOk = UnZipOpen(m.lcFileName)
m.llUnZipOk = (m.llUnZipOk AND UnZipGotoFileByName(FORCEEXT(JUSTFNAME(m.lcFileName),"xml")))
m.llUnZipOk = (m.llUnZipOk AND UnZipFile(m.lcFolderName))
m.llUnZipOk = (UnzipClose())
**
? m.llUnZipOk
RELEASE m.lcFileName,m.lcFolderName,m.llUnZipOk
SET LIBRARY TO

Pruebas y avisas que tal te fue. ;D

Saludos

Bytes ^_^

[HernanCano]

ZeRoberto:

Cuando tuve dificultades con archivos cuyo contenido es vacío, decidí que le pondría un caracter al archivo DUMMY, quizá puedas ponerle una a, o varias, o un espacio, o varios, o la misma palabra dummy o cualq cosa.

Pruébalo y --si se resuelve el impasse-- quizá puedas tomar una decisión (que el archivo no sea vacío).

Y nos cuentas.

La propuesta del otro colega también es válida: no descompactar todo, sino sólo el archivo que tenga extensión XML. La analizas y nos cuentas.

[ZeRoberto]

Hola Foxin voy a probar tu solución luego te cuento por el momento no puedo porque se me quemo la laptop.

[ZeRoberto]

Hola amigo Hernán gracias por responder,  el archivo zip no lo genero yo sino que es un archivo de respuesta de la sunat de mi país.

Saludos

El 24/08/2018 22:12, "HernanCano" <jherna...@gmail.com> escribió:

[HernanCano]

Bien.

Entonces tu SUNAT pone a prueba los conocimientos.

Si el caso es ése, mi recomendación es que uses la solución de Foxshin.

[ZeRoberto]

Gracias Foxin funciona de maravillas

Saludos