Dateien löschen
25.11.2013 16:46:46
Markus
Ich habe wieder einmal ein kleines Problem, und hoffe ihr könnt mir helfen.
Ich möchte alle JPG Dateien in einem bestimmten Ordner löschen, die älter als 10 Tage sind.
Bei meiner Recherche habe ich folgenden Code gefunden:
Sub DateiLöschen()
Dim sPath As String
Dim iCount As Integer, iCounter As Integer
sPath = Range("B1").Value
If MsgBox("Sollen die Dateien tatsächlich gelöscht werden?", _
vbCritical + vbYesNo) = vbNo Then Exit Sub
iCount = 30
With Application.FileSearch
.LookIn = sPath
.Filename = "*.xls"
.Execute
For iCounter = 1 To .FoundFiles.Count
If FileDateTime(.FoundFiles(iCounter)) + 30 Leider funktioniert dieser mit Excel 2010 nicht :-(
Wie müsste ich den Code umbauen?
Bin für jede Hilfe dankbar.
lg
Markus
Anzeige