Delete files from multiple folders that are 30 days old - vbscript

Question

I have VB Script which will delete files from folder which is more than 30 days old. My issue is it will delete from only one folder. I need to add multiple paths of folder in one script so that one script can delete files from multiple folders.
Const strPath = "D:\LIMS Testing\"
Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
Call Search (strPath)
' Comment out below line if you'd like to use this script in windows schedule task
WScript.Echo"Done."
Sub Search(str)
Dim objFolder, objSubFolder, objFile
Set objFolder = objFSO.GetFolder(str)
For Each objFile In objFolder.Files
' Use DateLastModified for modified date of a file
If objFile.DateLastModified < (Now() - 30) Then
objFile.Delete(True)
End If
Next
For Each objSubFolder In objFolder.SubFolders
Search(objSubFolder.Path)
' Files have been deleted, now see if the folder is empty.
If (objSubFolder.Files.Count = 0) Then
objSubFolder.Delete True
End If
Next
End Sub

Answer 1

You can simply call Search for all the folders you want to process:
Search "D:\LIMS Testing\"
Search "D:\some other folder\"
Search "D:\yet another folder\"
If all the folders you want to process are in the same folder already (if they are all under D:\LIMS Testing\ for example), your code will work because the Search subroutine is recursive.