Help deleting files in subfolders

[maltman]

Hey all,

I am new here and trying to get a script working for my company so we can delete files in subfolders. Here is a brief description of what it needs to do.

I have 4 subfolders

Folder
New-Folder
TempFolder1
TempFolder2

I am trying to delete everything older then 30 days in New-Folder.
Delete everything older then 90 days in the two temp folders (this will be about 40 folders on the server)
Do not delete anything in Folder (which will be 2 folders on our server)

Here is what I have so far:

NumberOfDaysOld = 30
NumberOfDaysOldTemp = 90
strPath = "C:\Documents and Settings\New Folder"

Set objFSO = CreateObject("Scripting.FileSystemObject")  
Set objFolder = objFSO.GetFolder(strPath)
Set colSubfolders = objFolder.Subfolders
Set colFiles = objFolder.Files

For Each objFile in colFiles  
   If objFile.DateLastModified < (Date() - NumberOfDaysOld) Then  
       objFile.Delete
   End If  
Next   

For Each objSubfolder in colSubfolders	
   Set colFiles = objSubfolder.Files  	
   For Each objFile in colFiles   
       If Left(objsubfolder.Name, 4) = "temp" AND objFile.DateLastModified < (Date() - NumberOfDaysOldTemp) Then
	    objFile.Delete
       ElseIf Left(objsubfolder.Name, 6) = "folder" Then
	    objFile.Delete = False
       ElseIf objFile.DateLastModified < (Date() - NumberOfDaysOld) Then
       	    objFile.Delete
       End If

   Next 

Next

The code works but it deletes everything 30 days old or older in all folders. Any help on this would be greatly appreciated.