Batch, Win 7, nur Daten aus Unterordnern verschieben mit bestimmter Dateiendung

'========Variablen für Anpassung =======  
'Ordner in dem die Dateien liegen  
STARTFOLDER = "C:\Quelle"  
'Ordner in den die Dateien kopiert werden sollen  
ZIELORDNER = "C:\Ziel"  
'Erweiterung der Dateien  
FILETYPE = "jpg"  
'=======================================  
Set fso = WScript.CreateObject("Scripting.Filesystemobject")  
Level = 0
Set PROCESSFOLDER = fso.GetFolder(STARTFOLDER)
parseFolders PROCESSFOLDER, True
Function parseFolders(strFldr,boolRecursion)
	If Level > 0 Then
		For each file in strFldr.Files
			If LCase(fso.GetExtensionName(file.Name)) = LCase(FILETYPE) Then
				file.Move ZIELORDNER & "\"  
			End If	
		Next
	End If
	
	If boolRecursion Then
		For Each subFolder in strFldr.SubFolders
			Level = Level + 1
			parseFolders subFolder, True
		Next
	End If
End Function
Set fso = Nothing
wscript.echo "Fertig kopiert!"  

$quelle = "C:\Quelle"  
$ziel = "C:\Ziel"  
dir $quelle | ?{$_.PSIsContainer} | %{dir "$($_.FullName)\*.jpg" -Recurse | %{Move-item $_.FullName $ziel -Force -ErrorAction SilentlyContinue}}