Private Sub EinlesenSevList1noSub()
 
 
 
Dim lCount As Long
    Dim nBytes As Currency
    Dim path As String
    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)
 
DoEvents
 
Dim lngMax As Long
    Dim lngAkt As Long
    lngAkt = 0: lngMax = lCount
 
    Load frm_Progress
    ShowProgress frm_Progress.PicProgress, 0, 0, 0
 
    frm_Progress.Show
    DoEvents
     frm_Progress.PicProgress.Refresh
 frm_Progress.Refresh
'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
 frm_Progress.PicProgress.Refresh
 frm_Progress.Refresh
  vDate = FileDateTime(path & "\" & sFiles(i))
  sev_List1.AddItem , sFiles(i) + vbTab + Format$(vDate, "dd.mm.yyyy")
 
Next i
DoEvents
End Sub

cu
Bris

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