Re: Delete files older than a week

  • Thread starter Thread starter Dave Patrick
  • Start date Start date
D

Dave Patrick

Something like this may work.

Dim fso, f, f1, fc
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("J:\aaaa")
Set fc = f.Files
For Each f1 in fc
If DateDiff("d", f1.DateLastModified, Now) > 7 Then f1.Delete
Next
 
Thanks Patrick!

Never done Batch file programming before. Do I need to
save it with the ".bat" extension? How does this work and
does it work during a reboot, does it prompt you to
delete them or what.
-----Original Message-----
Something like this may work.

Dim fso, f, f1, fc
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("J:\aaaa")
Set fc = f.Files
For Each f1 in fc
If DateDiff("d", f1.DateLastModified, Now) > 7 Then f1.Delete
Next

--
Regards,

Dave Patrick ....Please no email replies - reply in newsgroup.
Microsoft MVP [Windows NT/2000 Operating Systems]

Eric said:
I need to write a batch file that will delete files
certain folder (or a directory) that is older than a 7
days. Is this possible? How would I go about doing
Click to expand...
this?


.
Click to expand...
 
Since it is a VBscript, what do I need to save the file.
What file extension?

-----Original Message-----
Not a shell script, but a VBScript

--
Regards,

Dave Patrick ....Please no email replies - reply in newsgroup.
Microsoft MVP [Windows NT/2000 Operating Systems]

Eric said:
Thanks Dave!

Never done Batch file programming before. Do I need to
save it with the ".bat" extension? How does this work and
does it work during a reboot, does it prompt you to
delete them or what.
Click to expand...


.
Click to expand...
 
Back
Top