VBS - Ordner löschen nach X Tagen, inklusive Ordner

[Deathack 0]

Morgen zusammen,

 

habe mir ein VB Script gebastelt. Läuft soweit auch:

 

 

' hier eigenen Bedürfnissen anpassen

Verzeichnis = "\\backup\backup\Sicherung_dati_M23\"  ' Hier wird gelöscht!

Aufheben    = 7           ' Anzahl der Tage

' Ende der Anpassungen

Set fso = CreateObject("Scripting.FileSystemObject")

Set ordner = fso.GetFolder(Verzeichnis)

heute = Date()

DeleteInFolder(ordner)

 

Sub DeleteInFolder(ordner)

Set dateien = ordner.Files

' Alle Dateien in diesem Ordner abklappern

For Each datei In dateien

 If datei.DateLastModified < (heute - Aufheben) Then

   datei.Delete

 End If

Next

Set untere = ordner.SubFolders

'Unterordner abklappern, DeleteInFolder rekursiv aufrufen

For Each unter In untere

 DeleteInFolder(unter)

Next

End Sub

 

Vom Inhalt her funktioniert dies. Es werden alle Dateien in den Unterordnern gelöscht, nur leider die Ordner nicht. Wo kann ich Einstellen, das er auch die Ordner mitlöscht?

 

Ordnerstruktur:

\backup\backup\Sicherung_dati_M23\

 

Backup 01.09.2015

Backup 02.09.2015

Backup 03.09.2015

Backup 04.09.2015

 

usw.

 

Jeden Tag wird beim starten des PCs  ein Backup erstellt.

 

Der Inhalt der Ordner wird durch das Scipt geleert, aber leider nicht der Ordner.

 

Ideen?

 

Danke.

[daabm 1.354]

LMGTFY?

 

Setze hinter

DeleteInFolder(unter)

noch

unter.Delete( )

 

https://msdn.microsoft.com/library/0k4wket3.aspx