This is simple vb script to delete no of day's old files on your windows computer.You can automate this script with windows Task Manager.
Open notepad and paste following script.
Dim Fso
Dim Directory
Dim Modified
Dim Files
Set Fso = CreateObject(”Scripting.FileSystemObject”)
Set Directory = Fso.GetFolder(”D:\test”)
Set Files = Directory.Files
For Each Modified in Files
If DateDiff(”D”, Modified.DateLastModified, Now) > 7 Then Modified.Delete
Next
D:\test is my test directory. You can change it as your need. 7 is days which you want to delete how many days old files. Save this file as <filename>.vbs.
No comments:
Post a Comment