alle dat im Ordner löschen bis auf jüngste

Sub filesCount()
Application.ScreenUpdating = False
Set fs = Application.FileSearch
inp1 = "D:\backup\mitder\"
With fs
.LookIn = inp1
.SearchSubFolders = False
.Filename = "*.xls"
If .Execute > 0 Then
If .FoundFiles.Count > 50 Then
'wenn mehr als 50,alle Dateien löschen,die älter als 30Tag
Dim sPath As String
Dim iCount As Integer, iCounter As Integer
sPath = inp1
iCount = 30
With Application.FileSearch
.LookIn = sPath
.Filename = "*.xls"
.Execute
For iCounter = 1 To .FoundFiles.Count
If FileDateTime(.FoundFiles(iCounter)) + 30 < Date _
Then
Kill .FoundFiles(iCounter)
End If
Next iCounter
End With
Else: MsgBox ""
End If
Else
MsgBox "Schwerer Fehler! Es wurde keine Dateien gefunden!!!", ,     Nofile = 1
End If
End With
If Nofile = 1 Then Exit Sub
End Sub