HB_UnzipFile Does not work (SOLVED Thank you ENRICO)

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

HB_UnzipFile Does not work (SOLVED Thank you ENRICO)
Posted: Sun Feb 26, 2023 03:03 AM

Hello friends of the forum:

I have spent several days trying to extract 900 files from a ZIP file with the following code
that I searched and copied from the forum but it doesn't work for me :oops:

Code (fw): Select all Collapse

   lMkDir( cDirGlb) <=== yes the folder is created correctly

   aFiles := hb_GetFilesInZip(cPathFile,(.T.))
   IF hb_UnzipFile( cPathFile,,,,cDriGlb,aFiles,nil)
      ? "Very Good"
   ELSE
      ? "Failed"
   ENDIF

And it doesn't unzip it, what am I doing wrong?

Best regards

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

Enrico Maria Giordano

Posts: 9020

Joined: Thu Oct 06, 2005 08:17 PM

Re: HB_UnzipFile Does not work
Posted: Sun Feb 26, 2023 11:17 AM

Please check the content of aFiles and report back.

Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: HB_UnzipFile Does not work
Posted: Sun Feb 26, 2023 11:43 AM

Enrico:

Thanks for your advice, with ? LEN(aFiles) I got a number 5 and

yes, the zip file has five files in.

With

FOR nVez := 1 TO Len(aFilInZip)

  ? aFilInZip[nVez]

My tools FWH2013 & Harbour

Best regards

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

Enrico Maria Giordano

Posts: 9020

Joined: Thu Oct 06, 2005 08:17 PM

Re: HB_UnzipFile Does not work
Posted: Sun Feb 26, 2023 01:02 PM

Can I have the ZIP file to make a test here?

Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: HB_UnzipFile Does not work
Posted: Sun Feb 26, 2023 05:11 PM

Enrico:

I just sent you a zip file to e.m.giordano@emagsoftware.it address.

The zip file has five records only.

I really appreciate your help

Best regards

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

Enrico Maria Giordano

Posts: 9020

Joined: Thu Oct 06, 2005 08:17 PM

Re: HB_UnzipFile Does not work
Posted: Sun Feb 26, 2023 05:19 PM

Ok, 7-zip reports "Headers error". So it is a corrupted ZIP file.

Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: HB_UnzipFile Does not work
Posted: Sun Feb 26, 2023 05:28 PM

Enrico: