@echo off
 echo kopiruje soubory ze zdroj\*.* do cil\01-31\*.* podle poradovych cisel
 set zdroj=d:\Rok2013
 set cil=d:\Rok2013
:ADRESARE
 for /l %%a in (1,1,9) do (if not exist %cil%\0%%a md %cil%\0%%a)
 for /l %%a in (10,1,16) do (if not exist %cil%\%%a md %cil%\%%a)
:SEZNAM
 dir %zdroj%\*.* /b /a:a /o:n > seznam.txt
:XCOPY
 for /f "tokens=1,2,3 delims=-." %%a in (seznam.txt) do xcopy %zdroj%\%%a-%%b.%%c %cil%\%%b\%%a-%%b.%%c /m /f /d
 del seznam.txt
:END

nekontroluje to správnost názvů souborů, tj. jestli se tam nepřipletou cizí. (pak by proměnná %%c byla prázdná nebo neobsahovala jpg/jpeg)
taky by šel název souborů rozparsovat na rok a podle toho modifikovat zdroj/cíl. ale to by mi tu úplně vyvětralo pivo.