Option Explicit
Dim fso, dTwoDaysAgo
dTwoDaysAgo = Date() -  2 
Set fso = CreateObject("Scripting.FileSystemObject")

DirWalk("c:\log\")

Sub DirWalk(parmPath)
Dim oSubDir, oSubFolder, oFile, n

   On Error Resume Next         
   Set oSubFolder = fso.getfolder(parmPath)
   For Each oFile In oSubFolder.Files   
      If Err.Number <>  0  Then   
         Err.Clear
      ElseIf oFile.DateLastModified < dTwoDaysAgo Then
             fso.DeleteFile oFile.Path, True
      End If
   Next

   For Each oSubDir In oSubFolder.Subfolders
      DirWalk oSubDir.Path      
   Next
   On Error Goto  0               
End Sub