Dateien des aktuellen Monats verschieben

Hallo,
ich möchte Dateien des aktuellen Monats in einem Archiv Ordner verschieben.
Es wird ein Ordner mit dem aktuellen Datum erstellt aber leider werden keine Dateien verschoben.

Kann mir jemand sagen wo der Fehler liegt?

Ich will die batch Datei auf einem Windows Server 2008 laufen lassen.

meine batch Datei:

set jahr=%date:~-4%
set monat=%date:~-7,2%

REM Monat ermitteln
if %monat%==01 set monat=01
if %monat%==02 set monat=02
if %monat%==03 set monat=03
if %monat%==04 set monat=04
if %monat%==05 set monat=05
if %monat%==06 set monat=06
if %monat%==07 set monat=07
if %monat%==08 set monat=08
if %monat%==09 set monat=09
if %monat%==10 set monat=10
if %monat%==11 set monat=11
if %monat%==12 set monat=12


rem Archivordner wird erzeugt, falls nicht vorhanden
rem Hier müssen die benötigten Pfade definiert werden
rem --------------------------------------------------------

rem Name des Archivordners
set ordner=%jahr%_%monat%

rem Pfad wo der Archivordner liegen soll
set pfad=C:\Temp\TEST\Archiv

rem Name des zu untersuchenden Ordners
set source=C:\Temp\TEST

if not exist %pfad%\%ordner% md %pfad%\%ordner%


rem Alle Dateien aus dem jeweiligen Monat werden nun verschoben
rem --------------------------------------------------

FOR /f "tokens=4" %%a IN ('dir %source% /A-D ^|find "%monat%.%jahr%"') DO (

move %source%\"%%a" %pfad%\%ordner%

FOR /f "tokens=4" %%a IN ('dir %source% /A-D ^|find "%monat%.%jahr%"') DO (  

move %source%\"%%a" %pfad%\%ordner%  

FOR /f "tokens=4" %%a IN ('dir %source% /A-D ^|find "%monat%.%jahr%"') DO move "%source%\%%a" "%pfad%\%jahr%_%monat%\"  

FOR /f "tokens=3*" %%a IN ('dir "%source%" /A-D ^|find "%monat%.%jahr%"') DO move "%source%\%%b" "%pfad%\%jahr%_%monat%\"

pushd "%source%"  
for /f %%i in ('dir /b /a-d') do for /f "tokens=2,3 delims=. " %%a in ("%%~ti") do echo move "%%i" "%pfad%\%%b_%%a\"  
popd
pause