Dim sPath As String
Dim sFile As String
Dim vDate As Date
Dim nCount As Long
Dim nFiles As Long
Dim aFiles() As String
Dim vNewest As Date
Dim sNewest As String
Dim i As Long
 
' 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 
      nFiles = nFiles + 1
      ReDim Preserve aFiles(nFiles)
      aFiles(nFiles) = sFile
      If FileDateTime(sPath & sFile) > vNewest Then
        sNewest = sFile: vNewest = FileDateTime(sPath & sFile)
      End If
    Else
      nCount = nCount + 1
    End If
  End If
  sFile = Dir$
Loop
 
If nCount > 0 Then
  ' es gibt Dateien, die jünger als 10 Tage sind, also gesamtes File-Array 
  ' löschen
  For i = 1 To nFiles
    Kill sPath & aFiles(i)
  Next i
Else
  ' alle Dateien, bis auf die neueste löschen
  For i = 1 To nFiles
    If aFiles(i) <> sNewest Then Kill sPath & aFiles(i)
  Next i
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de