...
lbl_nameok.Caption = file_ok.Text 
Dim curBytes As Currency
Dim curTotal As Currency
 
curTotal = 20000000
curBytes = Folder1.Size
 
<font color=green>' belegten Speicherplatz anzeigen</font>
intproz1 = Int(curBytes / curTotal * 100)
ShowProgressok pic_ok, intproz1, 0, 100
...