' Aufrufen
  Dim dDate As Date
  dDate = "01.01.2002"
  Call DelOld("c:Test", dDate)
 
Public Sub DelOld(sPath As String, dOlderThen As Date)
  ' Läscht alle Dateien, die älter sind als 'dOlderThen '
 
  Dim sFile As String
  If right(sPath,1) <> "\" then sPath = sPath & "\"
  sFile = Dir(sPath)
  Do While sFile <> ""
    If FileDateTime(sPath & sFile) < dOlderThen Then
      ' Wenn die Datei älter ist als das übergebene Datum, dann löschen
      Kill sPath & sFile
    End If
    sFile = Dir
  Loop
 
End Sub