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
Kommentar