Lösung gefunden, nun brauche ich etwas Visual Basic Nachhilfe...

[nofear]

Hallo,

Ich suche ein Skript oder Programm welches automatisiert Ordner welche zum Beispiel älter als fünf Tage sind inklusive Inhalt löscht. Dies soll bei Systemstart automatisiert und ohne weitere Eingaben meinerseits geschehen.

z.B.: Lösche alle Ordner welche sich auf D:\ befinden und über fünf tage alt sind.

Gibts sowas?

 

[infinity_dev]

Schau dir mal den Thread an: Batch Datei: Alte Dateien nach gewissen Alter l

 

[nofear]

Das habe ich auch schon gefunden, ist für mich aber relativ nutzlos da ich ja abfragen will wie alt der Ordner ist und diesen dann mit samt Inhalt löschen will.

Ich habe mir jetzt ein kleines VBS-Skript zusammengeschustert welches auch echt gut funktioniert.

Mein einziges Problem ist noch dass das Programm bei schreibgeschüzten Dateien meckert.
Kennt sich hier jemand mit VB etwas besser aus als ich und kann mir sagen wie ich sowas in mein Skript integriere?

Hier das Skript:

strRootFolder = "D:\"

Set fso = CreateObject("Scripting.FileSystemObject")
Set ofolder = fso.GetFolder(strRootFolder)

'Durchlaufe alle Unterverzeichnisse
for each folder in ofolder.subfolders
KillFolderSub folder
next


Sub KillfolderSub(objFolder)

'Durchlaufe alle Unterverzeichnisse
for each subfolder in objfolder.subfolders
KillFolderSub subfolder
next

'Wenn Ordner vor mehr als 10 Tagen erstellt wurde...
if objFolder.datecreated < (Date - 10) then

'Alle Dateien im Ordner loeschen
for each file in objfolder.Files
fso.DeleteFile(file.Path)
next

'Ordner loeschen
fso.DeleteFolder(objFolder.Path)
end if

End Sub