Private 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
On Error GoTo ErrHandler
    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
       vDate = FileDateTime(path & "\" & sFiles(i))
       sev_List1.AddItem , sFiles(i) + vbTab + Format$(vDate, "dd.mm.yyyy")
   Next i
   Exit Sub
ErrHandler:
  MsgBox "Fehler " & CStr(Err.Number) & vbCrLf & _
    Err.Description
   End With
Unload frm_progress
sev_List1.Visible = True
 
End Sub

cu
Bris

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