rivate Sub alleEinlesenWithSub()
sev_List1.Visible = False
DoEvents
 
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)
       DoEvents
Load frm_progress
  With frm_progress
    ShowProgress .picProgress, 0, 0, 0
    .Show
    DoEvents
    frm_progress.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
    ShowProgress .picProgress, i, 0, lCount
      DoEvents
5       vDate = FileDateTime(path & "\" & sFiles(i))
       sev_List1.AddItem , sFiles(i) + vbTab + Format$(vDate, "dd.mm.yyyy")
   Next i
   End With
Unload frm_progress
Dim ergebnis As Long
ergebnis = sev_List1.ListCount
MsgBox ("Es wurden ") & ergebnis & (" Dateien erfolgreich eingelesen.") & _
  vbCrLf & vbCrLf & ("0 Fehlerhaft"), vbOKOnly, ("Komplett")
sev_List1.Visible = True
 
End Sub

cu
Bris

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