Vergleich von Teilen eines Dateinamens und Verschieben der Dateien

Hallo,

ich versuche gerade eine Batch-Datei zu erstellen, die mir folgende Anforderungen erfüllt:

Ich habe zwei Ordner mit tausenden pdf-Dateien. Die Dateinamen sehen so aus: xxx1234.pdf. Wobei die letzten vier Ziffern immer eine Kundennummer darstellen. Die Dateien sollen nun nach dieser Kundennummer sortiert in Ordner gesteckt werden, die nach der Kundennummer bennant sind.
Also: Datei xxx1234.pdf und Datei yyy1234.pdf sollen in den Ordner 1234 verschoben werden.

ich habe schon einige Threads mit einem ähnlichen Problem gefunden, komme aber leider nicht weiter. Über Hilfe würde ich mich sehr freuen.

Gruß ShaneDeak

@echo off & setlocal
set "Quelle=D:\Ordner1 mit tausenden pdf-Dateien"  
set "Ziel=D:\PDFnachKunden"  

for %%i in ("%Quelle%\*.pdf") do set "Name=%%~ni" & call :ProcessFile "%%i"  
goto :eof

:ProcessFile
set "Kunde=%Name:~-4%"  
md "%Ziel%\%Kunde%" 2>nul  
echo move %1 "%Ziel%\%Kunde%"  
goto :eof

@Echo off
for %%a in (*) do (
	if NOT "%%a"=="%0" (  
		Echo.
		Echo Verarbeite Datei %%a
		Echo.
		Echo ________________________________
		Echo.
		call :fileworker "%%a"  
	)
)
goto :EOF

:fileworker
set file=%1
set fname=%~n1
set folname=%fname:~-4%
:work
if exist %folname%\NUL (
	Echo Verschiebe Datei %file% nach %folname%
	Echo ----
	move %file% "%folname%\"%file%   
) else (
	Echo Erstelle Verzeichnis %folname%
	Echo ----
	md "%folname%"  
	goto work
)

@echo off & setlocal
> set "Quelle=D:\Ordner1 mit tausenden pdf-Dateien"  
> set "Ziel=D:\PDFnachKunden"  
> 
> for %%i in ("%Quelle%\*.pdf") do set "Name=%%~ni" & call :ProcessFile  
> goto :eof
> 
> :ProcessFile
> set "Kunde=%Name:~-4%"  
> md "%Ziel%\%Kunde%" 2>nul  
> echo move %1 "%Ziel%\%Kunde%"  
> goto :eof
> 

for %%i in ("%Quelle%\*.pdf") do set "Name=%%~ni" & call :ProcessFile "%%i"