Delete files older tahn a week

Can someone please send me the script to delete files that are one week old from a particular folder ?

I want to create a scheduled task for it.

thank you
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Try something like this:
Dim oFS, oFolder, oFile
Dim sFolder, iDaysOld

sFolder = "X:\Your\Folder\Name\"
iDaysOld = 7

Set oFS = CreateObject("Scripting.FileSystemObject")

If oFS.FolderExists(sFolder) Then
    Set oFolder = oFS.GetFolder(sFolder)
    For Each oFile in oFolder.Files
        If DateDiff("d", oFile.DateLastModified, Now) < iDaysOld Then oFile.Delete
    MsgBox "Folder Not Found!"
End If

Set oFile = Nothing
Set oFolder = Nothing
Set oFS = Nothing

Open in new window


Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
By the way, you need to save the file as VBS file.
Oh wait.. quick change:  it should be if the difference is GREATER than 7 days, then delete.  Please excuse my quick fingers.
Farhan KaziSystems EngineerCommented:
In from batch / command line you can perform this easily with ForFiles statement.
ForFiles comes with Windows 2000 Resource Kit Tools. You can easily download it from following link.

Extract .zip file and copy forfiles.exe into system32 folder. Make batch file with following statement or schedule it directly.

More examples and info:

Hope this helps!

ForFiles -pC:\Temp -s -m*.* -d-7 -c"Cmd.exe /C DEL @PATH\@FILE"

Open in new window

Bill PrewCommented:
Just to toss out another solution, a really small and powerful free utility that can easily do this can be found at:

It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Windows Batch

From novice to tech pro — start learning today.