VBS Script To Delete Files Older Than Eight Hours

 

This VBS Script will delete files in a specified directory folder that are older than 8 hours.

 

VBS Script:

 

strFolder = "C:\Folder Name"

 

Set Fso = CreateObject("Scripting.FileSystemObject")

Set Directory = Fso.GetFolder(strFolder)

Set Files = Directory.Files

 

For Each Modified in Files

If DateDiff("H", Modified.DateLastModified, Now) > 8 Then Modified.Delete

Next

 

MsgBox "Done"

 

 

Published Monday, December 22, 2008 9:39 AM by dhite
Filed under:

Comments

No Comments