Hallo Freunde

Habe kleines Problem mit einem Scribt habe warscheindlich "Schrott" geschriben. Kann mir jemand weiterhelfenen.

Gruss Koni



'================================================= =========================
'
' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 3.1
'
' NAME: Shared.vbs
'
' AUTHOR: Konard Dambeck
' DATE : 19.11.2004
'
' COMMENT: Dieses Ding Löscht alte dateien
'
'================================================= =========================


Verzeichnis = "D:\test" ' Hier wird gelöscht!
Aufheben = 7 ' Anzahl der Tage


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

Das Scribt sollte alle dateien im Ordner D:\Test loschen welche alter als 7 Tage sind,

Gruss Koni