function Rename-File {
	param([string]$dir, [string]$base, [string]$ext,
		[string]$bn = '', [uint16]$n = 0);

	if ([IO.File]::Exists("$dir\$($base+$bn+$ext)")) {
		$bn = ' (' + ++$n + ')';
		return  Rename-File -dir $dir -base $base -bn $bn -ext $ext -n $n;
	}
	return $base + $bn;
}

ls 'D:\photos\*' -Include '*.jpg', '*.png' -file | % {
	$f_str = $_.BaseName.Substring(0, 1);
	$dir = "$pwd\images\$f_str";
	if (![IO.Directory]::Exists($dir)) { md $dir | Out-Null }

	$base = Rename-File -dir $dir -base $_.BaseName -ext $_.Extension;
	cp $_.FullName -dest "$dir\$($base+$_.Extension)" -Verbose;
        # cp 改为 move 则移动文件。
}
Pause
复制代码

@echo off
set "srcDir=D:\photos"
set "dstDir=D:\images"
pushd "%srcDir%\"

for %%i in (*.jpg *.bmp) do (
    set "name=%%~ni"
    setlocal enabledelayedexpansion
    set "fd=!dstDir!\!name:~0,1!"
    md "!fd!" 2>nul
    if not exist "!fd!\!name!%%~xi" (
        copy "!name!%%~xi" "!fd!\"
    ) else (
        set "n=1"
        call :Next "%%~xi"
        copy "!name!%%~xi" "!fd!\!name!(!n!)%%~xi"
    )
    endlocal
)
pause & exit

:Next
if exist "!fd!\!name!(!n!)%~1" (
    set /a n+=1
    goto :Next
)
复制代码

@echo off
setlocal enabledelayedexpansion
for %%a in (*.jpg) do (
    set x=%%a
    set x=!x:~0,1!
    if not exist "!x!\%%a" (copy "%%a" "!x!\") else (
        if not exist "!x!\%%~na (2).jpg" (copy "%%a" "!x!\%%~na (2).jpg") else (
            set n=2
            for /f "delims=" %%b in ('dir /b /a-d !x!\*^|findstr /r /be /c:"%%~na ([0-9][0-9]*).jpg"') do (
                set "str=%%~nb"
                set "m=!str:%%~na (=!"
                set "m=!m:)=!"
                if !m! gtr !n! set /a n=m
            )
            set /a n+=1
            copy "%%a" "!x!\%%~na (!n!).jpg"
        )
    )
)
pause
复制代码