Dim sFile As String
Dim sPath As String
Dim vDate As Date
 
sPath = "c:\dein_order\"  ' Abschließender Backslash!
 
sFile = Dir$(sPath & "*.*")
Do While sFile <> ""
  If sFile <> "." And sFile <> ".." Then
    vDate = FileDateTime(sPath & sFile)
    If vDate < vDateVariable Then
      ' z.B. in eine ListBox eintragen
      List1.AddItem sFile
    End If
  End If
  sFile = Dir$
Loop

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de