Option Explicit

   Dim oFS, sLogDir, dDelDate

   Set oFS = WScript.CreateObject("Scripting.FileSystemObject")

   sLogDir = "C:\Logs"
   dDelDate = # 11 / 30 / 2000 #

   Call DelOldLogs(oFS.GetFolder(sLogDir))

   MsgBox "All Done!"
   WSCript.Quit
' --------------------- '
   Sub DelOldLogs(oFolder)
     Dim oFile, oSubFolder

     For Each oFile In oFolder.Files
       On Error Resume Next
       If IsOlder(oFile, dDelDate) Then oFile.Delete
     Next
' Process any sub folders '
     For Each oSubFolder In oFolder.SubFolders
       Call DelOldLogs(oSubFolder)
     Next
   End Sub
' ---------------------
   Function IsOlder(oFile, dDelDate)
     If oFile.DateLastModified < dDelDate Then
       IsOlder = True
     Else
       IsOlder = False
     End If
End Function