Automatic Delete File when compared to dates (W2K)

[MendozaM]

Anyone have any suggestions for a script that scans the files of a file server, checks the dates of those files compared to the current date. If date of file is greater than or equal to 90 days then delete file.

[Brf]

I would think that would be pretty dangerous.... delete ALL files over 90-days old would include all your OS files and stuff ;)

[Brf]

Try this.....


dteCheck = Dateadd("d",-90,date)
msgbox dtecheck

set objFileSys=createobject("scripting.filesystemobject")
set objFolder = objfilesys.GetFolder ("c:\")
doFolder objFolder

sub doFolder(myFolder)
set objFiles = myFolder.files
for each objfile in objFiles
if objfile.datelastmodified < dtecheck then
objfile.delete
end if
next
set objFolders = myFolder.subfolders
for each objFolder2 in objfolders
doFolder objfolder2
next
end sub

[MendozaM]

I would only want the script to run to check the following drives: G: & T: Drives.

[Brf]

In that case... you would replace these lines:

set objFolder = objfilesys.GetFolder ("c:\")
doFolder objFolder

With:

set objFolder = objfilesys.GetFolder ("g:\")
doFolder objFolder
set objFolder = objfilesys.GetFolder ("t:\")
doFolder objFolder