Script zum Löschen Dateien äter X aber nicht im Unterordner XY

Set shell = WScript.CreateObject("WScript.Shell")  
answer=MsgBox("Starte mit der Funktion: Lösche Inhalte im Ordner Test die älter 10 Tage sind", vbYesNo,"Frage")  
if answer = vbyes then
CreateObject("WScript.Shell").Popup "Starte mit der Löschung",3, "Information"  
DEINORDNER = "D:\Test"  
SUCHE_IN_UNTERORDNERN = True
olddate = DateAdd("d", -10, Date)  
set objFS = CreateObject("Scripting.FilesystemObject")  
Set objShell = CreateObject("Wscript.Shell")  
parseFolders objFS.GetFolder(DEINORDNER)
Function parseFolders(strFldr)
for each myFile in strFldr.Files
If LCase(objFS.GetExtensionName(myFile.Name)) = "lnk" then  
target = objShell.CreateShortcut(myFile.Path).TargetPath & "\Birne"  
If objFS.FolderExists(target) Then
RemoveOldFiles objFS.GetFolder(target)
End If
End If
Next
For Each subFolder in strFldr.SubFolders
parseFolders subFolder
Next
End Function
Function RemoveOldFiles(strFldr)
For Each f In strFldr.Files
If f.DateLastModified < olddate and not InStr(1,f.Name,"*Musik*") > 0 Then  
objFS.DeleteFile f.Path,True
End If
Next
For Each subFolder in strFldr.SubFolders
RemoveOldFiles subFolder
Next
End Function 
MsgBox "Fertig mit der Löschung"  
else
CreateObject("WScript.Shell").Popup "Abruch, nichts gelöscht",3, "Information"  
end if