Tweet

複数ファイルを一気にリネームしたい。

というわけで作りました。

全部リネーム.bat

——————

:rem Thanks http://scripting.cocolog-nifty.com/blog/2006/09/post_52b4.html
@MSHTA.EXE vbscript:Execute(“s=clipboardData.getData(“”text””):If Not IsNull(s) Then CreateObject(“”Scripting.FileSystemObject””).GetStandardStream(1).Write(s):End If:close:”) >tmp.txt
SET /P fname=<tmp.txt
:loop1
if .%1 ==. GOTO end
rename %1 “%fname%%~x1”
SHIFT
GOTO loop1
:end
del tmp.txt

これのショートカット作成し、「送る」フォルダにショートカットを入れておけば、ファイルを選択して「送る」で、一気にリネームできる……はず。

ただし重複のチェックもエラー表示も出ないので注意が必要。

なお、クリップボードの取得はこちらを使わせていただきました。ありがとうございます

Windows Script Programming
コマンドラインからクリップボードを使う。

Tweet