Hallo liebe Community von vb-paradise,
ich habe die Aufgabe ein Script zu erstellen, dass Unterordner von einem Ordner (test2) die älter als 30 Tage sind gelöscht werden. Dieses Script möchte ich mithilfe eines geplanten Tasks starten. Mein Script löscht leider nur Dateien und keien Ordner. Ich würde mich freuen, wenn mir hier jemand helfen könnte. Vielen Dank im vorraus!
Hier mein bestehendes Script:
Option Explicit
Dim intZahl '
Dim strExtension '
Dim objDatei '
Dim objFSO '
Dim objOrdner '
Dim strOrdner '
Set objFSO = CreateObject("Scripting.FileSystemObject")
strOrdner = "C:\test2\*"
strExtension = ""
intTage = 3
Set objOrdner = objFSO.GetFolder(strOrdner)
intZahl = 0
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
End If
Next
ich habe die Aufgabe ein Script zu erstellen, dass Unterordner von einem Ordner (test2) die älter als 30 Tage sind gelöscht werden. Dieses Script möchte ich mithilfe eines geplanten Tasks starten. Mein Script löscht leider nur Dateien und keien Ordner. Ich würde mich freuen, wenn mir hier jemand helfen könnte. Vielen Dank im vorraus!
Hier mein bestehendes Script:
Option Explicit
Dim intZahl '
Dim strExtension '
Dim objDatei '
Dim objFSO '
Dim objOrdner '
Dim strOrdner '
Set objFSO = CreateObject("Scripting.FileSystemObject")
strOrdner = "C:\test2\*"
strExtension = ""
intTage = 3
Set objOrdner = objFSO.GetFolder(strOrdner)
intZahl = 0
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
End If
Next