Dateien in Unterverzeichnis kopieren mit Datum der letzten Änderung

Ich weiß noch nicht so recht, wie ich das anstellen soll... Hier erstmal ein Beislpiel wie es aussehen soll:

Ordner: C:\Beispiel
Unterordner: c:\Beispiel\Unterordner

Dateien in C:\Beispiel:
bsp1.txt - zuletzt geändert am 01.01.2009
bsp2.txt - zuletzt geändert am 03.05.2009

Soll-Dateien in C:\Beispiel\Unterordner:
bsp1_20090101.txt
bsp2_20090503.txt

Folgendes war mein erster Ansatz um an das Datum zu kommen war:


Allerdings erhalte ich dabei nur ein Datum und auch alle Dateien aus allen Unterverzeichnissen
Außerdem erhalte ich den gesamten Pfad, den ich dann noch auseinander nehmen müsste, um das Ziel für den copy-Befehl zu generieren. Desweiteren muss das Datum noch umformatiert werden. Stehe da etwas Ratlos vor. Normalerweise würde ich für sowas kurz eine Anwendung programmieren, damit wär ich in ein paar Minuten durch, aber leider kann man sich das ja nicht immer aussuchen...

Set jahr=%file_date:~6,4%
set monat=%file_date:~3,2%
set tag=%file_date:~0,2%

@echo off

set projectpath=C:\Beispiel\

for /f %%i in ('dir %projectpath% /b /a-d') do (  
	call c:\batch\copywithmodifieddate.bat %projectpath%%%i %projectpath%Unterordner
)

@echo off

if {%1}=={} (
	goto :error
)

if {%2}=={} (
	goto :error
)

set file_date=%~t1
Set jahr=%file_date:~6,4%
set monat=%file_date:~3,2%
set tag=%file_date:~0,2%
set stunde=%file_date:~11,2%
set minute=%file_date:~14,2%

set ModifiedDate=%jahr%%monat%%tag%_%stunde%%minute%
set FileName=%~nx1
set FileEnding=%FileName:~-4%
set NewFileName=%FileName:~0,-4%
set NewFileName=%NewFileName%_%ModifiedDate%%FileEnding%
set NewFileName=%2\%NewFileName%

copy %1 %NewFileName% /Y

goto :end



:error
echo "Usage of copywithmodifieddate:"  
echo "copywithmodifieddate <SourceFile> <DestinationFolder>"  


:end