ProgressBar1.Visible = True
ProgressBar1.Min = 1
ProgressBar1.Max = 5
ProgressBar1.Value = 1
 
MousePointer = 11
 
' zunächst Anzahl Dateien ermitteln
ProgressBar1.Value = 2
lCount = VBEX_FileCount(drive1.drive, 1, "*.*", nBytes)
ProgressBar1.Value = 3
' Array dimensionieren
ReDim sFiles(lCount) As String
ProgressBar1.Value = 4
' Dateinamen ermitteln
lCount = VBEX_FileList(drive1.drive, 1, "*.*", sFiles(), nBytes)
ProgressBar1.Value = 5
MsgBox CStr(lCount + 1) & " Dateien, Gesamtgröße: " & CStr(nBytes) & " Bytes"
 
MousePointer = 1

_______________________________________________________
Gib jeden Tag die Chance , der Sch?nste Deines Lebens zu werden .
Mark Twain .