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?