Suchstring Suche aus CSV Datei mit CMD

@echo off & setlocal

set "SuchStrings=C:\SuchStrings.txt"  
set "Quelle=C:\RootOrdner"  
set "Ziel=C:\Zielordner"  

for /f "usebackq delims=" %%a in ("%SuchStrings%") do (  
  for /f "delims=" %%b in ('dir /s /b /a:-d "%Quelle%\%%~a" 2^>NUL') do (  
    copy "%%~b" "%Ziel%"  
  )
)

Get-ChildItem 'C:\Rootordner\*' -Include (gc 'D:\suchstrings.txt') -File | copy-item -Destination 'C:\zielordner'  

@echo off
powershell -EP Bypass -NoP -C "Get-ChildItem 'C:\Rootordner\*' -Include (gc 'D:\suchstrings.txt') -File | copy-item -Destination 'C:\zielordner'"  

gc 'D:\suchstrings.txt' | ?{$_ -notmatch '^\s*$'} | %{  
    $dest = "c:\zielordner\$($_ -replace '[<>:"/\\|\?\*]','_')"  
   if(!(Test-Path $dest)){md $dest -force | out-null}
    gci "c:\Rootordner\$_" -File | copy-item -Destination $dest  
}

gc 'D:\suchstrings.txt' | ?{$_ -notmatch '^\s*$'} | %{  
    $files = gci "c:\Rootordner\$_" -File -recurse  
    if ($files){
         $dest = "c:\zielordner\$($_ -replace '[<>:"/\\|\?\*]','_')"  
         if(!(Test-Path $dest)){md $dest -force | out-null}
         $files | copy-item -Destination $dest -Force -verbose
    }
}

@echo off & setlocal

:: -----------------------------------------------------------------------------
:: Benutzerkonfiguration
:: -----------------------------------------------------------------------------
set "SuchStrings=C:\SuchStrings.txt"  
set "Quelle=C:\RootOrdner"  
set "Ziel=C:\Zielordner"  
:: -----------------------------------------------------------------------------


:: -----------------------------------------------------------------------------
:: Hauptscript
:: -----------------------------------------------------------------------------
set "VBScript=%TEMP%\ReplaceWildcards.vbs"  

call :WriteVBScript

for /f "usebackq delims=" %%a in ("%SuchStrings%") do (  
  call :ProcessSearchTerm "%%~a"  
)

del "%VBScript%" 2>NUL  

exit /b 0



:: -----------------------------------------------------------------------------
:: Unterprogramme
:: -----------------------------------------------------------------------------
:ProcessSearchTerm
  set "SearchTerm=%~1"  
  set "DirName="  

  for /f "delims=" %%z in ('cscript /nologo "%VBScript%" "%~1"') do (  
    set "DirName=%%~z"  
  )

  if "%DirName%" equ "" exit /b 0  

  md "%Ziel%\%DirName%" 2>NUL  
  set /a FilesCopied=0
  
  for /f "delims=" %%z in ('dir /s /b /a:-d "%Quelle%\%SearchTerm%" 2^>NUL') do (  
    copy "%%~z" "%Ziel%\%DirName%"  
    set /a FilesCopied=1
  )
  
  if %FilesCopied% equ 0 (
    rd "%Ziel%\%DirName%" 2>NUL  
  )
exit /b 0


:WriteVBScript
  > "%VBScript%" echo strInput  = WScript.Arguments(0)  
  >>"%VBScript%" echo strOutput = Replace(strInput, "*", "_")  
  >>"%VBScript%" echo strOutput = Replace(strOutput, "?", "_")  
  >>"%VBScript%" echo WScript.Echo strOutput  
exit /b 0