[代码合集] 如何用批处理使用文件夹名字重命名内部文件

@echo off
cd /d "%~dp0"
for /r /d %%A in (*) do (
  call :rentemp "%%A"
)
pause
exit /b

:rentemp
setlocal enabledelayedexpansion
pushd "%~1"|| goto end
set n=0

for /f "delims=" %%A in ('2^>nul dir /a-d /b') do (
  if !n! equ 0 (
    set "newname=%~nx1%%~xA"
  ) else (
    set "newname=%~nx1(!n!)%%~xA"
  )
  set /a n+=1
  if not "!newname!"=="%%A" (
    if exist "!newname!" (
      call :getTempName
      @REM echo ren "%%A" "!tempname!"
     >nul 2>nul ren "%%A" "!tempname!" && set "templist[!n!]=%%A/!tempname!/!newname!"
    ) else (
      echo ren "%%A" "!newname!"
      ren "%%A" "!newname!"
    )
  )
)
REM 重命名临时列表
for /f "tokens=1* delims==" %%A in ('2^>nul set templist[') do (
  for /f "tokens=1-3 delims=/" %%C in ("%%B") do (
    echo ren "%%C" "%%E"
    ren "%%D" "%%E"
  )
)
popd
:end
endlocal
exit /b

:getTempName
:loop
set tempname=~%random%~
if exist "%tempname%" goto loop
@REM echo tempname=%tempname%
exit /b
复制代码