VBS, bei der Suche alle Unterordner mit einbeziehen

FOLDER = "D:\Users\User\Desktop\Test"  
set fso = CreateObject("Scripting.FilesystemObject")  
set regex = CreateObject("vbscript.regexp")  
regex.pattern = "_(\d+)_$"  
for each file in fso.GetFolder(FOLDER).Files
 set match = regex.Execute(fso.GetBasename(file.Name))
 if match.count > 0 then
   intDays = CInt(match(0).submatches(0))
   if DateAdd("d",intDays,file.DateLastModified) < Now() then  
      file.Delete
   End if
 End if 
Next