Delete Old Files 2

[mar74]

I'm trying to write a script that will sweep through and delete files older than 3 months. The script works fine on the folder I specify but I need to sweep through all of the subfolders as well. Any help is much appreciated. Here is the script:

Option Explicit
on error resume next
Dim oFSO
Dim sDirectoryPath
Dim oFolder
Dim oFileCollection
Dim oFile
Dim iDaysOld


iDaysOld = 90
Set oFSO = CreateObject("Scripting.FileSystemObject")
sDirectoryPath = "C:\Archive"
set oFolder = oFSO.GetFolder(sDirectoryPath)
set oFileCollection = oFolder.Files

For each oFile in oFileCollection
If oFile.DateLastModified < (Date() - iDaysOld) Then
oFile.Delete(True)
End If
Next

Set oFSO = Nothing
Set oFolder = Nothing
Set oFileCollection = Nothing
Set oFile = Nothing

 

[pkailas]

make a collection of folders first, then for each subfolder in folders put your files collection

_______
I love small animals, especially with a good brown gravy....

 

[PHV]

Or simpler, write a recursive function.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244