ランダムな英数字でファイル名を変更するバッチ

Question 1

次の簡単なスクリプトは、現在のフォルダー内のすべての .jpg ファイルの名前を、.jpg 拡張子を保持したまま、ランダムな 8 文字の英数字の名前に変更します。ランダム名ジェネレーターが既に存在する名前を生成する可能性があるので、スクリプトは一意の名前を正常に生成するまでループすることに注意してください。

@echo off
setlocal disableDelayedExpansion
set "chars=ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
for /f "eol=: delims=" %%F in ('dir /b /a-d *.jpg') do call :renameFile "%%F"
exit /b

:renameFile
setlocal enableDelayedExpansion
:retry
set "name="
for /l %%N in (1 1 8) do (
  set /a I=!random!%%36
  for %%I in (!I!) do set "name=!name!!chars:~%%I,1!"
)
echo if exist !name!.jpg goto :retry
endlocal & ren %1 %name%.jpg

もう少しコードを追加すると、ソースパスとファイルマスクを指定できる多目的ユーティリティが生成され、サブディレクトリを処理するオプションも提供されます。ユーティリティは常に各ファイルの拡張子を保持します。このユーティリティには注意してください。

renameFilesRandom.bat

:: renameFilesRandom.bat  [filter]  [/s]
@echo off
setlocal disableDelayedExpansion

:: Parse and validate arguments
set "option="
set "filter="
if "%~3" neq "" (
  >&2 echo ERROR: Too many arguments
  exit /b 1
)
if /i "%~1" equ "/S" (set "option=/S") else if "%~1" neq "" set "filter=%~1"
if /i "%~2" equ "/S" (set "option=/S") else if "%~2" neq "" (
  if defined filter (
    >&2 echo ERROR: Only one filter allowed
    exit /b 1
  ) else set "filter=%~2"
)
if "%filter:~0,1%" equ "/" (
  >&2 echo ERROR: Invalid option %filter%
  exit /b 1
)
if not defined filter set "filter=*"

:: Convert a directory filter into a file filter with wildcards
if exist "%filter%\" set "filter=%filter%\*"

:: Determine source if /S option not specified
set "src="
if not defined option for /f "eol=: delims=" %%F in ("%filter%") do set "src=%%~dpF"

:: Rename the specified files
set "chars=ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
for /f "eol=: delims=" %%F in ('dir /a-d /b %option% "%filter%"') do call :renameFile "%%F"
exit /b

:renameFile
setlocal
if not defined src set "src=%~dp1"
set "old=%~nx1"
set "ext=%~x1"
setlocal enableDelayedExpansion
:retry
set "name="
for /l %%N in (1 1 8) do (
  set /a I=!random!%%36
  for %%I in (!I!) do set "name=!name!!chars:~%%I,1!"
)
if exist "!src!!name!!ext!" goto :retry
ren "!src!!old!" "!name!!ext!"

以下に使用例をいくつか示します。

現在のディレクトリ内のすべてのファイルの名前を変更します。

renameFilesRandom

現在のディレクトリ内のすべての .jpg ファイルの名前を変更します。

renameFilesRandom *.jpg

c:\test フォルダーとそのすべてのサブフォルダー内のすべての .jpg ファイルの名前を変更します (再帰的):

renameFilesRandom c:\test\*.jpg /s

Answer