Gets the number of files that are in the zipfile
FUNCTION MAIN()
Local nFiles :=HB_GETUNZIPFILE('test.zip')
if nFiles >0
? "This files Contains ",nfiles
endif
Return Nil
Here is an example of How to use HB_GETUNZIPFILE() in conjunction
with HB_UNZIPFILE()
Function Main()
Local aGauge,nLen
aGauge := GaugeNew( 5, 5, 7,40 , "W/B", "W+/B" ,'²')
GaugeDisplay( aGauge )
nLen := HB_GETUNZIPFILE('test22')
hb_UNZIPFILE('test22',{|cFile,nPos| GaugeUpdate(aGauge,nPos/nLen),qout(cFile)},.t.)
Return Nil