Private Sub EinlesenSevList1noSub()
 
 
 
Dim lCount As Long
  Dim nBytes As Currency
  Dim path As String
  Dim vDate As Date
  Dim i As Long
 
  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)
 
  Load frm_Progress
  With frm_Progress
    ShowProgress .PicProgress, 0, 0, 0
    .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!
    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
  End With
Unload frm_Progress
End Sub

cu
Bris

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