Batch File To Old Files 5 Days Older

[Arulmanoj]

Hi,

I need a batch file to delete all PDF files in a folder and it's subfolders. I will be giving the folder path and number of old days to delete as static values..
Please it's very urgent. Also I have a VBScript file which works fine for the same.

Option Explicit
Dim FSO, WshShell, Then_Date, WSHShellENV, TempFolder, Recycled	' variables needed for main program(local scope)
On Error Resume Next
Set FSO = CreateObject("Scripting.FileSystemObject")	        ' a new object to gain access to a computer's file system
Set WshShell = WScript.CreateObject("WScript.Shell")	        ' an object in type specified
Set WSHShellENV = WSHShell.Environment("PROCESS")

Set drv = FSO.GetDrive("D")
DoDir FSO.GetFolder("D:\TUSA\TUSA\CallCentre\CustomerReports")
DoDir FSO.GetFolder("D:\TUSA\Tusa\CustomerPortal\CustomerReports")

Then_Date = DateAdd("d", -5, Date)   ' Files older than 5 days
WScript.Echo "Cleaned Files on " & Now & ". " & " Erased Files older than " & Then_Date

Sub DoDir(Folder)
   Dim i, File, SubFolder, fstr, pos, last_mod		' variables needed for function
   Dim Now_Date, Then_Date			                ' variable used for today's date
   Now_Date = Date					                ' loads today's date into variable Now_Date
   Then_Date = DateAdd("d",-5, Now_Date)		    ' Files older than 5 days
   

   Dim Findstr(0)					                ' an array named Findstr with array element one
   Findstr(0) = ".PDF"				                ' loads into array element 0, the .txt file extension
   For Each File In Folder.Files	                ' For each file in folder.files
     FStr = UCase(File.Path)
	

     'WScript.Echo(FStr)
     Pos = 0
    for i = 0 to 0					
	if ((instr(FStr, Findstr(i)) > 0) And (File.DateCreated < Then_Date)) then		

            ' check whether there exists a string inside FStr 
            ' which has an extension of any of the elements of FindStr
	  
	   'WScript.Echo(FStr)	                        ' echos file string
	   
	   File.delete					                ' if there is, simply delete it
      	   Exit For
      	End if
      Next
   Next
   For Each SubFolder in Folder.SubFolders
      DoDir SubFolder
   Next
End Sub

Sub ClearFolder(Folder)
   Dim File, SubFolder
   For each file in Folder.Files
   	File.delete(True)
   next
   'For Each SubFolder in Folder.SubFolders
    '  SubFolder.Delete(True)
   'Next
End Sub

Thanks
Manoj