Delete Aged Files & Folders from Subfolders

Question

Hi,
I have the following script to delete files and folders older than 7 days. It work but I need to be able to go through subfolders as well:
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\FTPRoot_External")
For Each file in objFolder.Files
If DateDiff("d", file.DateLastModified, Now) > 7 Then
objFSO.DeleteFile(file)
End If
Next
For Each folder in objFolder.SubFolders
If DateDiff("d", file.DateLastModified, Now) > 7 Then
objFSO.DeleteFolder(folder)
End If
Next
Any suggestions?
Thanks.

Answer 1

Here is an example I coded sometime ago with a recursive sub. You can modify this for your needs:
Option
Explicit
Dim strFolder, objFSO, objFOlder
' Specify main folder.
strFolder = "c:\scripts"
' Retrieve folder object.
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strFolder)
' Enumerate files.
Call GetFiles(objFolder)
Sub GetFiles(ByVal objParent)
    ' Enumerate files in folder.
    Dim objFile, objChild
    For Each objFile
In objParent.Files
        Wscript.Echo objFile.Path &
"," & objFile.DateLastModified
    Next
    ' Recurse through nested folders.
    For Each objChild
In objParent.SubFolders
        Call GetFiles(objChild)
    Next
End Sub
Richard Mueller - MVP Directory Services