BrinkMan

Hallo Ich habe recht wenig ahnung von VBS aber ich hab hier ein Script gefunden, das fast alles erfüllt. Es Löscht alle Dateien und Ordner älter X Tage. Leider fehlen aber noch 2 Funktionen die ich benötige. Vielleicht kann mir da einer Helfen. 1. Exclude von bestimmte Ordner 2. Log Datei Der Code stammt nicht von mir: 'DelOldScrap.vbs <BelowFolder> <AgeInDays> Set myArguments = WScript.Arguments If myArguments.Count <> 2 Then Usage Wscript.Quit (1) End if Heute = FormatDateTime(Date, 2) OldDate = DateAdd("d","-" & myArguments(1), Heute) Set objFS = CreateObject("Scripting.FilesystemObject") Base = myArguments(0) If objFS.FolderExists(Base) Then DoFolder objFS.GetFolder(Base) Else Usage End If MsgBox "Fertig." Sub DoFolder(Folder) For Each File In Folder.Files 'für "Erstellungsdatum" anstelle von "DateLastModified" "DateCreated" verwenden If File.DateLastModified < OldDate Then File.Delete Next For Each SubFolder In Folder.SubFolders 'für "Erstellungsdatum" anstelle von "DateLastModified" "DateCreated" verwenden If SubFolder.DateLastModified < OldDate Then WScript.Echo SubFolder.Delete Else DoFolder SubFolder If (SubFolder.SubFolders.Count + SubFolder.Files.Count) = 0 Then SubFolder.Delete 'leere Unterordner löschen End If Next End Sub Sub Usage MsgBox "Usage: " & WScript.ScriptName & " StartPfad TageAnzahl", vbExclamation, "Argumente überprüfen ..." End Sub

Hi Eyeswide Dein Script läuft ja soweit ganz gut und ich könnte es echt gut gebrauchen :) Aber leider Löscht dein Script nicht die Dateien in "Root" Verzeichnis sind! Also die Ordner/Subfolder/Dateien und die Exclude werden gelöscht bzw. ausgelassen. Ist das so gewollt oder löscht der nur Ordner und Dateien in den Unterordner?