Batch Dateien in anderes Unterverzeichnis verschieben

@echo off & setlocal

set "Quelle=W:\Programmierung\Batch"        
set "Typ=pdf"    
set "SearchKey=Kontoauszug"    

for %%a in ("%quelle%\Data\*%Searchkey%*.%typ%") do (    
    for /f "tokens=2 delims=_" %%b in ("%%~na") do (    
        if not exist "%quelle%\%Searchkey%\%%b" md "%quelle%\%Searchkey%\%%b" >nul    
        move "%%a" "%quelle%\%Searchkey%\%%b\"    
    )
)

@echo off & setlocal

set "Quelle=W:\Programmierung\Batch"        
set "Ziel=W:\Dokumente\Finanzen"        
set "Typ=pdf"    
set "SearchKey=Kontoauszug"    

for %%a in ("%quelle%\Data\*%Searchkey%*.%typ%") do (    
    for /f "tokens=2 delims=_" %%b in ("%%~na") do (    
        if not exist "%ziel%\%Searchkey%\%%b" md "%ziel%\%Searchkey%\%%b" >nul    
        move "%%a" "%ziel%\%Searchkey%\%%b\"    
    )
)