redim sFiles(lCound) as string

Private Sub cmd_AlleEinlesen_Click()
    Dim lCount As Long
    Dim nBytes As Currency
    Dim path As String
    path = txt_Pfad.Text
 
    ' zunächst Anzahl Dateien ermitteln
    lCount = VBEX_FileCount(path, 1, "*.*", nBytes)
 
' Array dimensionieren
ReDim sFiles(lCount) As String
 
' Dateinamen ermitteln
lCount = VBEX_FileList(path, 1, "*.*", 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")
 
DoEvents
 
'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))
 
  sev_List1.AddItem , sFiles(i) + vbTab + Format$(vDate, "dd.mm.yyyy")
 
Next i
End Sub

cu
Bris

"640 KB Ram sind mehr als irgendein Programm jemals ben?tigen wird."
- (Bill Gates - 1981)