Private Sub Command1_Click()
  Dim sPath As String
  Dim sFiles() As String
  Dim nCount As Long
  Dim i As Long
  Dim nBytes As Currency
  Dim vDate As Date
 
  [color=green]' Ordner, der durchsucht werden soll (inkl. Subordner)
  sPath = "d:\temp\"
 
  [color=green]' Anzahl Dateien ermitteln
  nCount = VBEX_FileCount(sPath, 1, "*.*", nBytes)
 
  [color=green]' Array dimensionieren und füllen
  ReDim sFiles(nCount)
  nCount = VBEX_FileList(sPath, 1, "*.*", sFiles(), nBytes)
 
  [color=green]' User-Datum (Textfeld - Umwandlung in Date)
  vDate = CDate(Text1.Text)
 
  [color=green]' Array durchlaufen und mit User-Datum vergleichen
  For i = 0 To nCount
    If FileDateTime(sPath & sFiles(i)) >= vDate Then
      List1.AddItem sPath & sFiles(i)
    End If
  Next i
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de