BAT : タイムスタンプをファイル名プレフィクスにつけるバッチ

今回から何回かに分けて、多量ファイルの整理に役立つスクリプトを紹介する。

例えば、ハードディスククラッシュ後、復旧ソフト等でぶっこ抜きした、多量のフォルダ所在不明ファイルだ。
分類する情報としては、フォルダが飛んでいるので、ファイル名、タイムスタンプしかない。
このファイルを整理するため、ファイル名先頭に日時文字を付けたり外したりするバッチだ。

Batchのつぼ

XP以降のBatchでは、Batch内である程度の文字列加工ができる。
しかも、工夫次第でワークファイルの出力も必要なくなる。
echo xxxx | findstr /C:"yyyyy"
の実行後、errorlevelを見ることでsearch代わりになるし、
摩訶不思議構文のfor文で指定文字列の部分削除ができる。

又、バッチ内サブルーチンコールでは、%1～%nのパラメタがスタックされるので、%~f1(パラメタ%1をフルパスファイル名に変換)等もサブルーチンパラメタと呼び出し元の双方で個々に保持される。


下記バッチは、例えば "qaz.txt" 2014/08/08 12:34　のファイルを"201408081234qaz.txt"に変換／逆変換してくれる。
バッチ内で使用している"dir /tc"を"dir /tw"にすれば作成日ではなく更新日をプレフィクスにすることもできる。
安全のため、ダイレクトに変更せず、変更するためのバッチをカレントに出力している。
作成されたファイル名変更バッチをエディター等で目視確認してから実行しろし。

fnctime.bat (パラメタで指定したフォルダ配下階層ファイルにプレフィクスとして作成日を付加する)

@if exist qaz.bat @del qaz.bat 2>nul @IF "%~f1"=="" (set ggpath=.) ELSE set ggpath=%~f1 @FOR %%a IN ("%ggpath%\*") do @call :sub1 "%%a" @echo ----------------------------------- @echo 上記コマンドをqaz.batに書き込みました。コマンドラインで実行してください。 @exit /b :sub1 @set orgname="%~f1" @set lastname=%~nx1 @for /f "skip=4 tokens=1-5 delims=/: " %%i in ('dir /tc "%~f1"') do @if %%i GTR 1900 call set ctstr=%%i%%j%%k%%l%%m @echo "%lastname%" | findstr /C:"%ctstr%" 2>nul >nul @if not errorlevel 1 exit /b @echo ren %orgname% "%ctstr%%lastname%" >>qaz.bat @echo ren %orgname% "%ctstr%%lastname%" @exit /b :sub2 @set lastpath=%~n1 @exit /b

fnnctime.bat (パラメタで指定したフォルダ配下階層ファイルから,作成日プレフィクスを外す)

bug:元のファイル名先頭が数字だと、消しすぎるバグあり。

@if exist qaz.bat @del qaz.bat 2>nul @IF "%~f1"=="" (set ggpath=.) ELSE set ggpath=%~f1 @FOR %%a IN ("%ggpath%\*") do @call :sub1 "%%a" @echo ----------------------------------- @echo 上記コマンドをqaz.batに書き込みました。コマンドラインで実行してください。 @exit /b :sub1 @set orgname="%~f1" @set lastname=%~nx1 @for /f "skip=4 tokens=1-5 delims=/: " %%i in ('dir /tc "%~f1"') do @if %%i GTR 1900 call set ctstr=%%i%%j%%k%%l%%m @echo "%lastname%" | findstr /C:"%ctstr%" 2>nul >nul @if errorlevel 1 exit /b @for /f "tokens=* delims=%ctstr%" %%i in ("%lastname%") do @set lastname=%%i @echo ren %orgname% "%lastname%" >>qaz.bat @echo ren %orgname% "%lastname%" @exit /b :sub2 @set lastpath=%~n1 @exit /b