Private Sub btn_Berechnen_Click()
    Dim lCount As Long
    Dim nBytes As Currency
    Dim path As String
    path = txt_path.Text
 
    ' zunächst Anzahl Dateien ermitteln
    lCount = VBEX_FileCount(path, 0, "*.*", nBytes)
 
' Array dimensionieren
ReDim sFiles(lCount) As String
 
' Dateinamen ermitteln
lCount = VBEX_FileList(path, 0, "*.*", sFiles(), nBytes)
MsgBox CStr(lCount + 1) & " Dateien, Gesamtgröße: " & CStr(nBytes) & " Bytes"
 
'array wurde dimensioniert
'dateien wurden eingelesen
'jetzt die dateien in die listbox schreiben...
 
' sFiles() ist das String-Array!
' nCount beinhaltet die Anzahl Dateien!
' sPath beinhaltet den genauen Pfad (Ordner) mit abschließendem Backslash!
 
Dim vDate As Date
Dim i As Long
 
For i = 0 To lCount
  vDate = FileDateTime(sPath & sFiles(i))
  sevList1.AddItem , sFiles(i) + vbTab + Format$(vDate, "dd.mm.yyyy hh:nn:ss")
Next i
 
 
End Sub