$SourDir="D:\temp" #设置源目录
Get-ChildItem -Path $SourDir -Force -Recurse -File| %{$old=$_.Name.ToLower();
    $new=(''+$old[0]).ToUpper()+$old.Substring(1, $old.Length-1);
   Rename-Item -NewName $new -Path $_.FullName -WhatIf
}
pause
复制代码

@echo off
set "SourDir=d:\temp"

for /f "delims=" %%a in ('dir /a-d /s /b /l "%SourDir%\*.*"') do (
	rem 将文件名转换为小写
	call :name2lower "%%a" file_name
	setlocal enableDelayedExpansion
	rem 获取文件名第一个字符，若为小写则转换为大写
	set "head=!file_name:~0,1!"&(echo !head!|findstr /i "[a-z]"&&for %%s 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 "head=!head:%%s=%%s!")>nul
	rem 重命名
	ren "%%~a" "!head!!file_name:~1!"
	endlocal
)
pause
goto:eof

rem ===将文件名转换为小写===
:name2lower
setlocal
set "name=%~1"
	:lp
	call set "ch=%%name:~%i%,1%%"
	if "%ch%" neq "\" set /a i-=1&goto :lp
	set /a i+=1	
	call set "name=%%name:~%i%%%"
endlocal&set "%2=%name%"&goto:eof
rem ========================
复制代码

$old=$_.Name.ToLower();
$new=(''+$old[0]).ToUpper()+$old.Substring(1, $old.Length-1);
#$new=[Regex]::replace($old,'^.',{param($m);$m.Value.ToUpper()});
复制代码

@echo off&setlocal enabledelayedexpansion
set D=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
set x=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
for %%i in (%D%) do set #%%i=%%i
for /f "delims=" %%i in ('dir/b *.*') do (
	set "var=%%~ni"
	for %%j in (%x%) do set var=!var:%%j=%%j!
	set num=!var:~0,1!
	if defined #!num! (
		for %%k in (!num!) do set num=!#%%k!
		ren "%%i" "!num!!var:~1!%%~xi"
	)
)
复制代码

@echo off&setlocal enabledelayedexpansion
set D=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
for %%i in (%D%) do set #%%i=%%i
for /f "delims=" %%i in ('dir/b/l *.*') do (
	set "var=%%~ni"
	set "num=!var:~0,1!"
	if defined #!num! (
		for %%k in (!num!) do set num=!#%%k!
		ren "%%i" "!num!!var:~1!%%~xi"
	)
)
复制代码