VBscript to delete files older than X day from folder and subfolders

Hello all,

I have been trying to set up a VB script to delete all files older than 2 days in a specific folder and all subfolders without deleting the folders.  I found a great script presented by an Expert on this site - RobSampson.  When I have tried to run the script I get an error message:

"Object doesn't support this property or message" 800A01B6.

The line being flagged is line 13, character 1 which equates to the first "For Each oSubFolder in oFolder"  Probably a spelling error somewhere on my part but I can't see it.  The only thing I noted is that I don't see oSubFolder defined anywhere previously in the script.

Here is the script:

iDaysOld = 1
Set oFSO = CreateObject("Scripting.FileSystemObject")
sDirectoryPath = "C:\Temp"
set oFolder = oFSO.GetFolder(sDirectoryPath)
set oFileCollection = oFolder.Files
'If database log file backups are older than 1 days, delete them.
For each oFile in oFileCollection
      If oFile.DateLastModified < (Date() - iDaysOld) Then
            oFile.Delete(True)
      End If
Next

For Each oSubFolder In oFolder 'SCRIPT BOMBS HERE
      RecurseFolders oSubFolder
Next

'Clean up
Set oFSO = Nothing
Set oFolder = Nothing
Set oFileCollection = Nothing
Set oFile = Nothing

Sub RecurseFolders(oFolder)
      set oFileCollection = oFolder.Files
      'If database log file backups are older than 1 days, delete them.
      For each oFile in oFileCollection
            If oFile.DateLastModified < (Date() - iDaysOld) Then
                  oFile.Delete(True)
            End If
      Next      
      For Each oSubFolder In oFolder
            RecurseFolders oSubFolder
      Next
End Sub

RobSampson....you out there?