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"
 
Load frm_arbeite
frm_arbeite.Show
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))
  If vDate >= CDate(txt_VonDatum.Text) And vDate <= CDate(txt_BisDatum.Text) Then
    sev_List1.AddItem , sFiles(i) + vbTab + Format$(vDate, "dd.mm.yyyy")
  End If
Next i
 
Unload frm_arbeite
DoEvents

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de