20 lines
477 B
Plaintext
20 lines
477 B
Plaintext
#define B_BOXLINES "ÚÄ¿³ÙÄÀ³"
|
|
Function Main()
|
|
local aDir:=Directory("*.h")
|
|
local afiles:={}
|
|
Local x
|
|
local nLen
|
|
local aGauge
|
|
CLS
|
|
For x:=1 to len(aDir)
|
|
|
|
aadd(afiles,adir[x,1])
|
|
|
|
next
|
|
nLen=len(afiles)
|
|
aGauge := GaugeNew( 5, 5, 7,40 , "W/B", "W+/B" ,'²')
|
|
GaugeDisplay( aGauge )
|
|
Hb_ZIPFILE('test12.zip',afiles,8,{|nPos,cFile| GaugeUpdate(aGauge,nPos/nLen)})
|
|
Hb_ZIPFILE('test22.zip',afiles,8,{|nPos,cFile| qout(cFile)})
|
|
return nil
|