Verschiedene Dateien aus Unterordner mit Umbenennung verschieben

Ein Beispiel:
Dateien/Ordnerstruktur:
D:\Programme\Ausgabe\Batch10#\M01J12\ABC\SECU.pdf
D:\Programme\Ausgabe\Batch09#\M01J12\ABC\A100\SECU.pdf
D:\Programme\Ausgabe\Batch07#\M01J12\DEF\ASF.pdf
D:\Programme\Ausgabe\Batch07#\M12J11\XYZ\BRA\ASF.pdf
D:\Programme\Ausgabe\Batch03#\M12J11\XYZ\ASF.pdf

- Unterordner BatchXY# - hier verändern sich die Zahlen – prinzipiell sind Zahlen von Batch01# bis Batch25# möglich.
- M01J12 steht für Monat 01 (Januar) und Jahr 2012 … diese Information ist wichtig und sollte dementsprechend geordnet werden.
- ABC/DEF/XYZ: Kennzeichnung der Abteilung – hier kann „alles“ vorkommen
- A100/BRA: Kennzeichnung der Unterabteilung (nicht überall vorhanden) - hier kann „alles“ vorkommen
- *.pdf – PDF Dateien mit unterschiedlichen Namen je nach darin enthaltene Auswertung

--> Ausgabe sollte folgendermaßen erfolgen – der Monats/Jahr Ordner sollte erstellt werden.

D:\Programme\SORTIERUNG\M01J12\SECU_ABC.PDF
D:\Programme\SORTIERUNG\M01J12\SECU_ABC_A100.pdf
D:\Programme\SORTIERUNG\M01J12\ASF_DEF.pdf
D:\Programme\SORTIERUNG\M12J11\ASF_XYZ_BRA.pdf
D:\Programme\SORTIERUNG\M12J11\ASF_XYZ.pdf

Die Dateien sollten verschoben werden und am alten Platz nicht mehr vorhanden sein.
Hat hier wer eine Idee für ein Batchscript?

Danke vorab für Eure Hilfe,
Lakslo

@echo off &setlocal

set /a Deep = 5
set "Quelle=D:\Programme\Ausgabe\*.pdf"  
set "Ziel=D:\Programme\SORTIERUNG\"  

for /f "delims=" %%i in ('dir /s /b "%Quelle%" ') do for /f "tokens=%Deep%* delims=\" %%a in ("%%~dpi") do if "%%b" neq "" (set "Bname=\%%b"  
	setlocal enabledelayedexpansion
	set "Bname=!Bname:\=_!"  
	set "Bname=!Bname:~,-1!"  
	@echo if not exist "%Ziel%%%a" md "%Ziel%%%a"  
	@echo move "%%i" "%Ziel%%%a\%%~ni!Bname!%%~xi"  
	endlocal
)
pause

@echo off &setlocal

set /a Deep = 5
set "Quelle=D:\Programme\Ausgabe\*.pdf"  
set "Ziel=D:\Programme\SORTIERUNG\"  

set Filter= /r /c:"[\\]Batch[\ ]*[1-2][0-9]#[\\]M[0-9][0-9]J[0-9][0-9]"  
:: Filter nach regulärem Ausdruck Hilfe unter Findstr /?

for /f "delims=" %%i in ('dir /s /b "%Quelle%" ^|findstr %Filter% ') do for /f "tokens=%Deep%* delims=\" %%a in ("%%~dpi") do if "%%b" neq "" (set "Bname=\%%b"  
	setlocal enabledelayedexpansion
	set "Bname=!Bname:\=_!"  
	set "Bname=!Bname:~,-1!"  
	@echo if not exist "%Ziel%%%a" md "%Ziel%%%a"  
	@echo move "%%i" "%Ziel%%%a\%%~ni!Bname!%%~xi"  
	endlocal
)
pause