Batch - Älteste Dateien nach Minuten oder Stunden löschen?

Danke für den Link.

Haben mit Hilfe dessen und noch weiteren Recherchen ein Skript gefunden welches ebenfalls auf anhieb funktioniert.

Mfg
Schieby


'-------------- CleanUp.vbs --------------------
Option Explicit
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
DeleteFiles fso.GetFolder("D:\Test") '<----- Change this folder name to match with your case.
Sub DeleteFiles(srcFolder)
Dim srcFile
If srcFolder.Files.Count = 0 Then
Wscript.Echo "No File to Delete"
Exit Sub
End If
For Each srcFile in srcFolder.Files
If DateDiff("h", Now, srcFile.DateCreated) < -1 Then
fso.DeleteFile srcFile, True
End If
Next
Wscript.Echo "Files Deleted successful"
End Sub
'-----------------------------------------------

Ich hab jetzt noch eine Frage.

Wie kann ich das Script umgestalten, dass es nur bestimmte Dateitypen löscht?

Teste schon lange, komm aber zu keinem Ergebnis:

'-------------- CleanUp.vbs --------------------
Option Explicit
Dim fso, Adresse
Adresse = "D:\test\" & "*" & ".wl"
Set fso = CreateObject("Scripting.FileSystemObject")
DeleteFiles FSO.DeleteFile(Adresse) '<----- Change this folder name to match with your case.
Sub DeleteFiles(srcFolder)
Dim srcFile
If srcFolder.Files.Count = 0 Then
Wscript.Echo "No File to Delete"
Exit Sub
End If
For Each srcFile in srcFolder.Files
If DateDiff("h", Now, srcFile.DateCreated) < -1 Then
fso.DeleteFile srcFile, True
End If
Next
Wscript.Echo "Files Deleted successful"
End Sub
'-----------------------------------------------