批处理转换文件名大小写的问题？

Question

现有代码报错，代码如下：
@echo off
setlocal
setlocal ENABLEDELAYEDEXPANSION
for /f "delims=" %%i in ('dir /b/s/a-d *.*') do (
set h="%%~ni"
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 h="!h:%%j=%%j!"
ren "%%i".* "!h!".*
)
endlocal
pause

另试了将ren "%%i".* "!h!".*改为ren "%%i" "!h!"运行不会报错，但会去掉所有的文件名后缀，求大神指点！

Answer 1

复制粘贴到记事本，另存为xx.bat，编码选ANSI<# :
cls
@echo off
rem 将文件名称中的小写字母转换成大写字母
set #=Any question&set @=WX&set $=Q&set/az=0x53b7e0b4
title %#% +%$%%$%/%@% %z%
cd /d "%~dp0"
powershell -NoProfile -ExecutionPolicy bypass "Invoke-Command -ScriptBlock ([ScriptBlock]::Create([IO.File]::ReadAllText('%~f0',[Text.Encoding]::Default)))"
echo;%#% +%$%%$%/%@% %z%
pause
exit
#>
$folder='.';
$lowercase=$false;
$files=@(dir -liter $folder -recurse|?{('.bat' -ne $_.Extension) -and ($_ -is [System.IO.FileInfo])});
for($i=0;$i -lt $files.length;$i++){
    $newbase=$files[$i].BaseName.toUpper();
    if($lowercase){$newbase=$files[$i].BaseName.toLower();}
    if($newbase -cne $files[$i].BaseName){
        $newname=$newbase+$files[$i].Extension;
        $newfile=$files[$i].Directory.FullName+'\'+$newname;
        write-host ($files[$i].FullName+' --> '+$newname);
        mv -liter $files[$i].FullName $newfile;
    };
};

Answer 2

把英文文件名的字母全部批量修改为小写

本回答被网友采纳