批量将文件名称转为大写

@echo off & setlocal enableextensions & setlocal enabledelayedexpansion

set currentName="" #定义变量

set dir=%~dp0&call:cdto
for /f "delims=" %%i in ('dir/s/b/ad') do set dir=%%i&call:cdto
pause
exit/b
:cdto
cd /d %dir%
for /f "delims=" %%i in ('dir/b/a-d/l') do call set currentName=%%i &call:toUpperCase & ren "%%i" !currentName! & echo !currentName!

:toUpperCase
for %%i 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 ( 

call set currentName=%%currentName:%%i=%%i%% #循环替换

)

 

#本脚本有一个缺点，会将后缀一起转化为大写