Skript suche Ordner in Unterordner

param(
    [Parameter(Mandatory=$true)]$folderSearch
)
$contentToCopy = "C:\Temp\DateiDieKopiertwerdensoll.csv"  
$suchbegriff = "DeinSuchbegriff"  
dir $folderSearch -Recurse | ?{$_.PSIsContainer -and $_.Name -like "*$suchbegriff*"} | %{copy-item $contentToCopy -Destination $_.FullName}  

deinscript.ps1 -folderSearch "C:\Suchordner"

Set-ExecutionPolicy -RemoteSigned

Set args = WScript.Arguments
If args.length > 0 Then
	startFolder = args.Item(0)
Else
	WScript.Echo "Es fehlt der Parameter für den Suchordner"  
	WScript.Quit
End If

'Der String den du suchst  
strSearch = "source"  
'Einzelnes File hineinkopieren  
fileToCopy = "C:\Temp\test.csv"  
'Alternativ einen ganzen Ordner hinein kopieren  
folderToCopy = "C:\TestQuellOrdnermitDateien"  

Set fso = WScript.CreateObject("Scripting.Filesystemobject")  
Set rootFolder = fso.GetFolder(startFolder)
parseFolders rootFolder,True

Function parseFolders(strFldr,boolRecursion)
	For each folder in strFldr.Subfolders
		If InStr(1,folder.Name,strSearch,vbTextCompare) > 0 Then
			fso.CopyFile fileToCopy, folder.Path & "\"  
			' Alternativ Kopieren eines ganzen Ordners  
			'fso.CopyFolder folderToCopy, folder.Path & "\"  
		End If
	Next
	
	If boolRecursion Then
		For Each subFolder in strFldr.SubFolders
			parseFolders subFolder, True
		Next
	End If
End Function

cscript.exe //NOLOGO deinScript.vbs "C:\Suchpfad"