HB_UnzipFile No me funciona (SOLUCIONADO)

[Armando]

Hola Amigos del foro:

Llevo varios días intentando sacar 900 ficheros de un fichero ZIP con el siguiente código
que busqué y copié del foro pero no me funciona

Code: Select all  Expand view

   lMkDir( cDirGlb)     <=== sí se crea bien la carpeta
   aFiles   := hb_GetFilesInZip(cPathFile,(.T.))
   IF hb_UnzipFile( cPathFile,,,,cDriGlb,aFiles,nil)
      ? "Bien"
   ELSE
      ? "Falló"
   ENDIF
 

Y no lo descomprime, que estoy haciendo mal?

Saludos

[leandro]

Amigo buenas tardes como estas?

Esto nos funciona para un archivo pequeño. No se si sea de utilidad.

Code: Select all  Expand view

            cGRutaZip := cGetFile("Archivos xml (*.xml)| *.xml|Archivos zip (*.zip)| *.zip|","Seleccione Archivo",2)
            cPathDescarga := CurDrive()+":\"+CurDir()+"\xml\"+cCpFile
            lMkDir(cPathDescarga)
            aFiles:=hb_GetFilesInZip(cGRutaZip)
            FOR y:=1 TO len(aFiles)
                cNmTmZip := aFiles[y]
                cExTmZip := DescomponeCadena(cNmTmZip,".")[2]
                //recuperamos y completamos la ruta en donde va a quedar el xml descomprimido que necesitamos
                if cExTmZip=="xml"
                    cGRuta := cPathDescarga+"\"+cNmTmZip
                endif
            NEXT   
            //msginfo(cGRuta)
            lVal:= Hb_UnZipFile(cGRutaZip,,.T.,,cPathDescarga,aFiles,NIL )

[Armando]

Hola Leandro:

Muchas gracias por el código, ya ha quedado solucionado.

El ZIP venia dañado.

Saludos