ファイル名置換バッチ

サブディレクトリを含め、ファイル名が"IMG_xxxx.CR2"に一致するもの (xxxxは4桁の数字) を検索し、4桁の数字の頭に"05"を付与するDOSバッチを作成。

@echo off
setlocal enabledelayedexpansion
for /r %%i in (*.*) do (
　　echo %%~ni%%~xi | findstr IMG_[0-9][0-9][0-9][0-9].CR2 >NUL
　　if not "!ERRORLEVEL!"=="1" (
　　　　set oldname=%%~ni%%~xi
　　　　set newname=!oldname:IMG_=IMG_05!
　　　　echo rename %%i !newname!>>filelist.bat
　　)
)
call filelist.bat
del filelist.bat

やりたいことは簡単なのに、なんだか回りくどい書き方になってしまった。中間ファイルも生成するし。もっとシンプルに書けないかなー。