Ordner automatisch verschieben wenn 30 Tage oder älter

Hallo Leute

Ich habe ne kleine Aufgabe die ich aber net gebacken bekomme. Wie beim letzten Mal geht es um eine Batch datei die
etwas tun soll und dies auch in einem Log ausgeben soll.
Diesmal wäre die Aufgabe wie Folgt.
Ich habe hier ein System das Daten in Ordner packt. Nun sollen alle Ordner die älter sind als einen Monat über ein
Netzlaufwerk auf einen anderen Rechner verschoben werden.
Diese Ordner sehen wie Folgt aus :

z.b

2007_02_01_09_24_05_564

darin befinden sich die dateien.

Ordner die nicht älter als ein Monat sind sollen bleiben, ältere sollen übers Netz verschoben werden.

Dazu soll in einem Logfile mit Datum un Uhrzeit zusehen sein ob die Ordner erfolgreich oder nicht erfolgreich verschoben wurden.

Hat jemand eine Lösung ?

Ich weiß das man irgendwie den Teil von 2007 bis 01 also 2007_02_01 abprüfen muss mit dem aktuellen Datum. Der Rest dahinter
is nicht wichtig.

Bin für jede Hilfe sehr dankbar.

MfG

Thomas S.

Set /a LastMonthAnsiDate=%AnsiDate% -100
for /f "tokens=1-3* delims=_" %i in ('dir /a:d /b ????_??_??_??*') do @if [%i%j%k] LEQ [%LastMonthAnsiDate%] move "%i_%j_%k_%l" x:\archiv\  

set days=30
echo Old=DateAdd("d",-%days%,Now)>%temp%\GetOldANSIDate.vbs  
echo WScript.Echo Year(Old)^&Right("0"^&Month(Old),2)^&Right("0"^&Day(Old),2)>>%temp%\GetOldANSIDate.vbs  
for /f %%d in ('cscript //nologo %temp%\GetOldANSIDate.vbs') do set /a LastMonthAnsiDate=%%d  
del %temp%\GetOldANSIDate.vbs