Dim sPath As String
Dim sFile As String
Dim vDate As Date
 
' Datum vor 10 Tagen
vDate = DateAdd("d", -9 Now)
 
' Ordner, der nach "alten" Dateien durchsucht werden soll
sPath = "c:\temp\"
 
' Ordner durchsuchen
sFile = Dir$(sPath & "*.*", vbNormal)
Do Until sFile = ""
  If sFile <> "." And sFile <> ".." Then
    ' älter als vDate?
    If FileDateTime(sPath & sFile) < vDate Then Kill sPath & sFile
  End If
  sFile = Dir$
Loop

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de