Ordnerinhalte verteilen in einer MS-Umgebung

:: Move2Month.cmd ::::::::::::::::::::::::::::::::::::::::::
:: D:\Test\2010-06\10\Move2Month.cmd Administrator.de
@Echo off & Setlocal EnableDelayedExpansion
chcp 1252
Set Mon=0
Set "Basis=X:\DeineBilder\"  
Set "Ziel=X:\Wo auch immer\"  
Pushd "%Basis%"  
for %%A in (Jänner Feber März April Mai Juni 
  Juli August September Oktober November Dezember
) Do (
  set /A "Mon+=1"  
  Set "Monat[!Mon!]=%%A"  
  If Not Exist "%Ziel%%%A\" MD "%Ziel%%%A\"  
)
For /f "tokens=1,* delims=:" %%A in (  
  ' Dir /B /A-D ^|findstr /N /V "%~nx0" '  
) do (
  Set /A "Mon=(%%A-1) %% 12 +1"   
  call Echo Move "%%B" "%Ziel%%%Monat[!Mon!]%%\"  
REM   call Move "%%B" "%Ziel%%%Monat[!Mon!]%%\" >NUL  
)
Popd