42 lines
1.1 KiB
Plaintext
42 lines
1.1 KiB
Plaintext
#define B_BOXLINES "ÚÄ¿³ÙÄÀ³"
|
|
#include 'tzipfile.ch'
|
|
Function Main()
|
|
Local aArray,x,oZip
|
|
|
|
local aDir:=Directory("*.h")
|
|
local afiles:={}
|
|
local nLen
|
|
local aGauge
|
|
CLS
|
|
Create ZipFile oZip file "test9658.zip" BLOCK {|cFile| qOut(cFile)} COMPRESS
|
|
For x:=1 to len(aDir)
|
|
Add file adir[x,1] to oZip
|
|
// aadd(afiles,adir[x,1])
|
|
next
|
|
Activate zip oZip
|
|
?
|
|
? "Number of Files in this Zipfile",oZip:GetNumberofFiles()
|
|
/*
|
|
nLen=len(afiles)
|
|
aGauge := GaugeNew( 5, 5, 7,40 , "W/B", "W+/B" ,'²')
|
|
GaugeDisplay( aGauge )
|
|
Hb_ZIPFILE('test12.zip',afiles,8,{|cFile,nPos| GaugeUpdate(aGauge,nPos/nLen)})
|
|
Hb_ZIPFILE('test22.zip',afiles,8,{|nPos,cFile| qout(cFile)})
|
|
|
|
hb_zipfile('test22.zip',{'data/','data/hbdoc.obj','data/genhtm.obj'},8)
|
|
inkey(0)
|
|
|
|
local aGauge,nLen
|
|
aGauge := GaugeNew( 5, 5, 7,40 , "W/B", "W+/B" ,'²')
|
|
GaugeDisplay( aGauge )
|
|
x:= HB_GETUNZIPFILE('test22.zip')
|
|
? "number of files in zip",x
|
|
aArray:=HB_GETFILESINZIP('test22.zip')
|
|
for x:=1 to len(aArray)
|
|
? aArray[x]
|
|
next
|
|
nlen:=HB_GETUNZIPFILE('test22.zip')
|
|
hb_UNZIPFILE('test22.zip',{|cFile,nPos| GaugeUpdate(aGauge,nPos/nLen),qout(cFile)},.T.)
|
|
*/
|
|
RETURN nil
|