Dim lCount As Long
Dim nBytes As Currency
 
' zunächst Anzahl Dateien ermitteln
lCount = VBEX_FileCount("c:\", 1, "avatars.dat", nBytes)
 
' Array dimensionieren
ReDim sFiles(lCount) As String
 
' Dateinamen ermitteln
lCount = VBEX_FileList("c:\", 1, "avatars.dat", sFiles(), nBytes)
MsgBox CStr(lCount + 1) & " Dateien, Gesamtgröße: " & CStr(nBytes) & " Bytes"

---------------------------------------
City4ALL- die erste, virtuelle 3D Stadt im Internet! Infos unter www.3DWelt.tk