@echo off & title 转换文件(夹)名中小写为大写 TZP
cd /d %~dp0
setlocal enabledelayedexpansion
for /f “delims=” %%a in (‘dir /s/b’) do (
set “RelativePath=%%~a”
set "RelativePath=!RelativePath:%~dp0=!
call :Convert
)
pause
exit
:Convert
if not defined RelativePath goto :eof
if “!RelativePath:~-1!”=="" set “RelativePath=!RelativePath:~,-1!”
for %%i in ("!RelativePath!") do (
set “Name=%%~nxi”
for %%j in (A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z) do (
set “Name=!Name:%%j=%%j!”
)
ren “!RelativePath!” “!Name!”
set “RelativePath=%%~dpi”
set "RelativePath=!RelativePath:%~dp0=!
)
goto Convert