VBScript to Delete Files x Days Old from a Txt File List of Directories

'First, you will need to setup a scheduled task and run it
'daily.  Just change the number to the amount of days you
'want to keep file in that directory.  Any files in the
'directory will be deleted.   
' specify the directory you wish to clean as the first and only parameter to this script! 
' MODIFIED AND ENHANCED BY RUSSELL JUNGWIRTH 
'  FROM AN ORIGINAL SCRIPT Courtesty of monsterjta @ tek-tips.com 
Option Explicit
on error resume next
    Dim iDaysOld
    Dim WshShell
    Dim sDirectoryPath
    Dim DesktopFolder
    Dim LogFilePath
    Dim fso
    Dim LogFile
    Dim oArgs
    Dim bWriteLog
    Dim bDoDeletes 
    'Definitions
    ' change this value to specify the number days old the file must be to qualify for deletion
    iDaysOld = 90
    ' set this to 1 to log activity, set to 0 to prevent logging 
    ' THE LOG FILE LIVES IN THE SAME DIRECTORY AS THE SCRIPT
    bWriteLog = 1
    ' set to 1 to do the deletions, set to 0 to simply report intended deletions instead of doing them
    '   note that setting this to 1 will automatically write a log
    bDoDeletes = 1 
    if bDoDeletes = 0 and bWriteLog = 0 then bWriteLog = 1 
    Set WshShell = CreateObject("WScript.Shell")
    OpenLog()
    WriteLog("run " & fso.GetBaseName(Wscript.ScriptName))
    ' GET EXECUTION ARGUMENTS TO DETERMINE WHAT DIR TREE TO SCAN
    Set oArgs = WScript.Arguments
    sDirectoryPath = oArgs(0)
    if sDirectoryPath = "" then
      'wscript.stderr.writeline("no directory specified")
      'wscript.quit(1)
      sDirectoryPath = WshShell.CurrentDirectory
    end if
    ' CALL THE RECURSIVE SUB TO DO THE WORK
    call DeleteTree(sDirectoryPath)
    If Err.Number <> 0 Then
      writelog("subfolder err " & Err.Number & " - "  & Err.Description)
      on error goto 0
      Err.Clear
    end if
    CloseLog()
'Clean up
    set fso = Nothing
    set WshShell = Nothing   
    set LogFile = Nothing
    set oArgs = Nothing
'End 
 

Sub DeleteTree (ByVal sPath)
    on error resume next
  Dim l_oFile, l_oFolder, l_oFileCollection
  Dim l_oFSO, l_oFolderCollection
'  WriteLog("called DelTree with " & sPath)
  if mid(len(sPath),1) <> "\" then sPath = sPath & "\"
  Set l_oFSO = CreateObject("Scripting.FileSystemObject")
  set l_oFolder = l_oFSO.GetFolder(sPath)
  set l_oFileCollection = l_oFolder.Files
  For each l_oFile in l_oFileCollection
    If l_oFile.DateLastModified < (Date() - iDaysOld) Then
      WriteLog("delete " & l_oFile.Name)
      if bDoDeletes = 1 then  l_oFile.Delete(True)
    else
      WriteLog("preserve " & l_oFile.Name)
    End If
  Next
  set l_oFolderCollection = l_oFolder.SubFolders
    If Err.Number <> 0 Then
      writelog("subfolder err " & Err.Number & " - "  & Err.Description)
      on error goto 0
      Err.Clear
      exit sub
    else
      For each l_oFolder in l_oFolderCollection
    '   PERFORM RECURSIVE CALL TO DELETE OLD FILES IN LOWER DIRECTORIES
'       WriteLog("recurse " & l_oFolder.Path)
        DeleteTree(l_oFolder.Path)
        on error resume next
 '      WriteLog("return recurse " & l_oFolder.Path)
'       if l_oFolder.Files.Count = 0 and  l_oFolder.SubFolders.Count = 0 and            l_oFolder.DateLastModified < (Date() - iDaysOld) then 
'         WriteLog("delete empty folder " & l_oFolder.Path)
'         if bDoDeletes = 1 then l_oFolder.Delete(True)
'       else
'         WriteLog("preserve non-empty folder " & l_oFolder.Path)
'       end if
    '   On Error Goto 0   
      Next
    end if ' error trap 
  Set l_oFile = Nothing
  Set l_oFolder = Nothing
  Set l_oFileCollection = Nothing
  Set l_oFSO = Nothing
  Set l_oFolderCollection = Nothing
End Sub 
Sub OpenLog()
on error resume next
 if bWriteLog = 1 then 
 ' GET LOCATION FOR LOG FILE ON THE DESKTOP
 '  DesktopFolder = WshShell.RegRead("HKEY_CURRENT_USER\Software\" & _ 
 '     "Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Desktop")
    Set fso = CreateObject("Scripting.FileSystemObject")
    ' LogFilePath = DesktopFolder & "\" & fso.GetBaseName(Wscript.ScriptName) & ".log"
    LogFilePath = fso.GetParentFolderName(WScript.ScriptFullName) & "\" & fso.GetBaseName(  Wscript.ScriptName) & ".log"
    'wscript.stderr.writeline(logfilepath)
    if not fso.FileExists(LogFilePath) then
      Set LogFile = fso.CreateTextFile(LogFilePath)
    else
      Set LogFile = fso.OpenTextFile(LogFilePath, 8) ' open for appending = 8
      'Set LogFile = fso.OpenTextFile(LogFilePath, 2) ' open for writing = 2 
    end if 
  end if
End Sub 
Sub WriteLog(sLogEntry)
  on error resume next
  if bWriteLog = 1 then LogFile.WriteLine(Now &  " " & sLogEntry)
end Sub 
Sub CloseLog()
  on error resume next
  if bWriteLog = 1 then LogFile.Close()
End Sub