LFN2SFN Support for HB_UNZIP

[RAMESHBABU]

Hi Friends,

I am getting error when I try to read the files using

Code: Select all  Expand view

HB_GETFILESINZIP( cInputFile )
 

It happens only when the file name is beyond 12 chars in length,
include its extension.

It did not work even with LFN2SFN function.

Can anybody suggest me a way out.

Thanks

- Ramesh Babu P

[anserkk]

Dear Mr.Ramesh,

The below given code is working fine for me.

Code: Select all  Expand view

#include "FiveWin.ch"
#include "xBrowse.ch"
//------------------//
Function Main()
    Local aFiles,lOk,cFolder
    // Zip and Unzip functions, should include the libs named HbZip & zlib available in \xHarbour\lib
    cFolder:="E:\ZipTest\"
   
    // Array containing the list of files in the ZipFile with Path
    aFiles := hb_GetFilesInZip("LongFileNameZipFile")
    xBrowser aFiles
   
    lOk := hb_unzipfile("LongFileNameZipFile",,.T.,,cFolder,aFiles,NIL)
    MsgInfo(lOk)
Return lOk

Regards

Anser