Need script to autodelete files after a certain period of time and logs the names of the deleted files with time and date.

'==================================== 
' VBScript Source File 
' NAME: DeleteEmptySubdirs.vbs 
' AUTHOR: Chay Harley 
' DATE  : v1.0: 28/10/2005  ; v1.1: 30/10/2005 ; v1.2 31/10/2005 
' Usage: 
'   cscript scriptname.vbs /d:C:\SomePath 
'   cscript scriptname.vbs /d:"C:\SomePath To Clean" 
'==================================== 
   Option Explicit 
 
   Dim WSHShell, RightMargin, LastParentFolder 
 
   Set WSHShell = CreateObject("Wscript.Shell") 
    
   If WScript.Arguments.Named.Count = 0 Then Usage() 
    
   Dim ExceptionList 
   'To exclude some folders, add to this list 
   ExceptionList = Array("Audio_TS", "My Documents", "My Pictures", "My Received Files") 
    
   Dim Path 
   Path = WScript.Arguments.Named.Item("D") 
   If Right(Path,1) <> "\" Then Path = Path & "\" 
   WScript.echo "Option [D]: " & UCase(Path) 
 
   Dim  objFSO, objRootFolder 
   Set objFSO = CreateObject("Scripting.FileSystemObject") 
    
   Set objRootFolder = objFSO.GetFolder(Path) 
   ProcessChildFolders objRootFolder 
    
   Sub ProcessingDirError(DirToCheck, ErrMsg) 
      'If we get 'permission denied', there is a read/delete block on the folder. Ignore it... 
      If ucase(ErrMsg) <> "PERMISSION DENIED" Then 
         WScript.Echo "Error [" & ErrMsg & "]. Please manually action """ & DirToCheck & """" 
      End if 
      Err.Clear 
   End Sub 
    
   Sub CheckAndDeleteEmptyFolder(objFolder) 
      On Error Resume Next 
      if objFolder.Size = 0 Then 
         If Err.Number Then 
            ProcessingDirError objFolder.Path, Err.Description 
         else          
            DeleteEmptyFolder objFolder, objFolder.Size 
         End If 
      End If 
   End Sub 
 
   Sub ProcessChildFolders(objRootFolder) 
      On Error Resume Next 
      Dim objParentFolder, objChildFolder 
      Set objParentFolder = objFSO.GetFolder(objRootFolder.Path) 
      If Err.Number Then 
         ProcessingDirError objRootFolder.Path, Err.Description 
      Else 
         If objParentFolder.SubFolders.Count > 0 Then 
            'process a folder branch 
            For Each objChildFolder In objParentFolder.SubFolders 
               ProcessChildFolders objChildFolder 
            Next 
            CheckAndDeleteEmptyFolder objParentFolder 
         Else 
            'Process a folder leaf (final folder) 
            if Left(objParentFolder.Path, InStr(InStr(objParentFolder.Path,"\")+1, objParentFolder.Path,"\")) <> LastParentFolder Then 
               WScript.Echo "[Progress] " & objParentFolder.Path 
            End If 
            CheckAndDeleteEmptyFolder objParentFolder 
            LastParentFolder = Left(objParentFolder.Path, InStr(InStr(objParentFolder.Path,"\")+1,objParentFolder.Path,"\")) 
         End If 
      End if 
   End Sub 
    
   Sub DeleteEmptyFolder(objDeleteFolder, FolderSize) 
      Dim ExceptionItem 
      For Each ExceptionItem In ExceptionList                     'skip exceptions ;) 
         If InStr(UCase(objDeleteFolder.Path),  Ucase(ExceptionItem)) Then 
            WScript.Echo "[Skipping] " & objDeleteFolder.Path 
            Exit Sub 
         End If 
      Next 
      DisplayDirectoryName objDeleteFolder.Path, FolderSize 
      Err.Clear 
      objDeleteFolder.Delete() 
      If Err.Number Then ProcessingDirError objDeleteFolder.Path, Err.Description 
   End Sub 
    
   Sub DisplayDirectoryName(DisplayPath, Size) 
      Dim TempNumber 
      TempNumber = Len(DisplayPath) 
      'set the right margin to make the output look good 
      If TempNumber >  RightMargin Then RightMargin = TempNumber 
      'yet, let's shift it back to the left if there's a huge difference (say, 30 chars) 
      If RightMargin - 30 > TempNumber Then RightMargin = TempNumber 
      WScript.Echo "*Deleting* " & DisplayPath & Space(RightMargin - TempNumber + 4 ) & "Size: " & Size 
   End Sub 
    
   Sub Usage() 
      WScript.Echo VbCrLf 
      WScript.Echo "=====================================" 
      WScript.Echo "Empty Folder/Directory Remover Script" 
      WScript.Echo "=====================================" 
      WScript.Echo VbCrLf & "Usage:" 
      WScript.Echo VbCrLf & " cscript scriptname.vbs /d:C:\SomePath " 
      WScript.Echo VbCrLf & " cscript scriptname.vbs /d:""C:\SomePath To Clean"" " 
      WScript.Quit 
   End Sub