Hallo,
ich habe ein Script, das nach bestimmten Tagen Dateien löscht.
Was muss ich ändern, um auch Verzeichnisse mit Inhalten zu löschen?
Vielen Dank -
Andreas
ich habe ein Script, das nach bestimmten Tagen Dateien löscht.
VB.NET-Quellcode
- DIM today, olddate, days, dir
- ' Hier an die eigenen Bedürfnisse anpassen
- days = 10
- dir = "Y:\"
- 'Skript-Routine
- today = FormatDateTime(Date, 2)
- olddate = DateAdd("d", "-" & days, today)
- SET objFS = CreateObject("Scripting.FilesystemObject")
- SET myFolder = objFS.GetFolder(dir)
- SET myFiles = myFolder.Files
- FOR EACH myfile IN myFiles
- IF myFile.DateCreated < olddate THEN
- myFile.Delete
- END IF
- NEXT
Was muss ich ändern, um auch Verzeichnisse mit Inhalten zu löschen?
Vielen Dank -
Andreas