【转载】【Windows批处理IV】批量进行文件重命名

@echo off
for %%a in (*.*) do (
if "%%~nxa" neq "%~nx0" (
set "name=%%~na"
setlocal enabledelayedexpansion
set name1=!name!
call :lp
ren "!name!%%~xa" "!nam!%%~xa"
set "nam="
endlocal
)
)
pause
:lp
if defined name1 (
set "var=!name1:~,1!"
if "!var!" leq "Z" (
if "!var!" geq "a" (
set "nam=!nam!!var!"
))
set "name1=!name1:~1!"
goto lp
)

@echo off
setlocal enabledelayedexpansion
set "n=1000"
for /f "delims=" %%a in ('dir/b *.jpg') do call :a "%%a"
for /f "delims=" %%a in ('dir/b/od *.jpg') do set/a "n+=1"&ren "%%a" "!n:~-3!%%~xa"
exit
:a
ren "%~1" "%random%%~x1" || goto a