Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Const Active = False
- Const sSource = "P:"
- Const MaxAge = 7 'days
- Const Recursive = True
- Checked = 0
- Deleted = 0
- Set oFSO = CreateObject("Scripting.FileSystemObject")
- if active then verb = "Deleting """ Else verb = "Old file: """
- CheckFolder oFSO.GetFolder(sSource)
- WScript.echo
- if Active then verb = " file(s) deleted" Else verb = " file(s) would be deleted"
- WScript.Echo Checked & " file(s) checked, " & Deleted & verb
- Sub CheckFolder (oFldr)
- For Each oFile In oFldr.Files
- Checked = Checked + 1
- If DateDiff("D", oFile.DateLastModified, Now()) > MaxAge Then Deleted = Deleted + 1
- WScript.Echo verb & oFile.Path & """"
- If Active Then oFile.Delete
- End If
- Next
- if not Recursive then Exit Sub
- For Each oSubfolder In oFldr.Subfolders
- CheckFolder(oSubfolder)
- Next
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement