Dateien löschen: -Tag / Unterv. / txt
11.08.2015 22:34:56
albin
Habe leider kein brachbares Beispiel im Netz gefunden, dass ab Version 2010 läuft.
Wunsch: Bestimmte Dateien löschen, Optionen: älter als 30 Tag / Dateitype z.B. Txt und vor allem auch in allen Unterverzeichnissen.
Beispiel:
C:\temp\a\test.txt
C:\temp\a\1\test.txt
C:\temp\a\2\test.txt
C:\temp\a\3\test.txt
u.s.w
Das VBA sollte alle 4 Txt-Dateien löschen, wenn diese z.B. älter sind als 30 Tage
sind.
Ich danke Euch im Voraus.
Gruss Albin
Dieses VBA läuft zwar, aber berücksichtig leider die Unterverzeichnisse nicht.
Sub dateiloeschen()
Dim intZahl '
Dim strExtension '
Dim intTage '
Dim objDatei '
Dim objFSO '
Dim objOrdner '
Dim strOrdner '
Set objFSO = CreateObject("Scripting.FileSystemObject")
strOrdner = ("c:\Temp\a")
strExtension = "txt"
intTage = 30
Set objOrdner = objFSO.GetFolder(strOrdner)
intZahl = 100000
For Each objDatei In objOrdner.Files
If LCase(Right(objDatei.Name, Len(strExtension))) = LCase(strExtension) And DateDiff("d", _
objDatei.DateLastModified, Now) > intTage Then
objDatei.Delete
intZahl = intZahl + 1
End If
Next
End Sub