更新日時を付加した名前に変更するバッチ

ファイル名ってこんな風に更新日時つけたりしてますか？
これって自動化できるんです。

使用イメージ

バッチってこんな感じ。劇的。

下記をバッチファイルにしたうえで、ドラッグ&ドロップ
またはsendtoに保存してから送るで実行。

:addcopy

set DATETIME=%~t1
set DATETIME=%DATETIME:/=%
set DATETIME=%DATETIME::=%
set DATETIME=%DATETIME: =%
set DATETIME=%DATETIME:~0,-4%

ren %1 "%DATETIME%_%~nx1"

shift
If %1.==. goto :EOF

goto addcopy