VBS Löschen älter x Tage

[BrinkMan 10]

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

[blub 115]

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.

 

 

Hallo BrinkMan,

Was hält dich denn davon ab, dich mit Scripting zu beschäftigen? Am Anfang muss man sicher etwas inverstieren, aber glaub mir es lohnt sich.

 

blub