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" & _
  vbCrLf & vbCrLf & ("Die Dateien werden jetzt eingelesen.") & vbCrLf & ("Bitte" & _
  "einen Moment Geduld..."), vbOKOnly, ("Berechnung")
 
'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(path & "\" & sFiles(i))
  sevList1.AddItem , sFiles(i) + vbTab + Format$(vDate, "dd.mm.yyyy")
Next i
 
 
End Sub