ファイル名に日付を追加するバッチファイル

例えば、2009/04/25 15:12に変更された以下のファイルを
AA.txt
以下のように変換する
AA_20090425_1512.txt

@echo off

:LOOP
if "%~1" == "" goto END

set fname=%~t1
set fname=%fname:/=%
set fname=%fname::=%
set fname=%fname: =_%
echo copy %1 "%~d1%~p1%~n1_%fname%%~x1"
copy %1 "%~d1%~p1%~n1_%fname%%~x1"

shift
goto LOOP

:END
pause

参考にしたサイト
http://www.ne.jp/asahi/hishidama/home/tech/windows/bat.html
http://www.fpcu.jp/dosvcmd/bbs/log/datetime/4-1593.html
http://www.geocities.co.jp/SiliconValley-SanJose/1227/batfor.html