Ordner per Batch verschieben

Hallo,
ich habe folgendes Problem und bräuchte dazu Hilfe:

Ich möchte per Batch mehrere Ordner aus einem Quell-Verzeichnis in ein Zielverzeichnis verschieben. Das besondere dabei ist, dass ich den Anfangsbuchstaben des Quell-Ordners auslesen möchte und dieser dann automatisch ans Zielverzeichnis angehangen wird.

Beispiel (es handelt sich dabei um Ordner):

C:\Quelle

aaa
abb
acc
baa
bbb
bcc
...

C:\Ziel\

a
b
...

Ziel ist, dass die Ordner aus dem Quellverzeichnis, welche mit "a/A" beginnen, in den Zielordner "C:\Ziel\a" verschoben werden. Die Ordner, welche mit "b/B" beginnen, nach C:\Ziel\b verschoben werden usw.

Könnt Ihr mir dabei bitte behilflich sein???

Vielen Dank.

for /f %i in ('dir /B /AD C:\Quelle\a*') do move %i C:\Ziel\a\  
for /f %i in ('dir /B /AD C:\Quelle\b*') do move %i C:\Ziel\b\  

@echo off & setlocal
set "Quelle=C:\Quelle"  
set "Ziel=C:\Ziel"  

for /d %%i in ("%Quelle%\*.*") do call :ProcessDir "%%i"  
goto :eof

:ProcessDir
set "Ordnername=%~n1"  
set "Buchstabe=%Ordnername:~,1%"  
set "ZB=%Ziel%\%Buchstabe%"  
if not exist "%ZB%" md "%ZB%"  
echo move %1 "%ZB%\"  
goto :eof