HB_UnzipFile No me funciona (SOLUCIONADO)

Board index FiveWin para Harbour/xHarbour HB_UnzipFile No me funciona (SOLUCIONADO)

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

HB_UnzipFile No me funciona (SOLUCIONADO)
Posted: Sat Feb 25, 2023 07:55 PM

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 :oops:

Code (fw): Select all Collapse

   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

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

leandro

Posts: 1816

Joined: Wed Oct 26, 2005 02:49 PM

Re: HB_UnzipFile No me funciona
Posted: Sun Feb 26, 2023 05:54 PM

Amigo buenas tardes como estas?

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

Code (fw): Select all Collapse

            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 )

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: HB_UnzipFile No me funciona
Posted: Sun Feb 26, 2023 06:14 PM

Hola Leandro:

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

El ZIP venia dañado.

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

FiveTech Support Forums

Continue the discussion