[文件操作] 批处理统计文件夹内的图片视频，计算大小时如何统计单位为G

@echo off &setlocal enabledelayedexpansion &for /d %%d in (*) do (
	pushd "%%d" &set/a "np=0,zp=0,nv=0,zv=0"
	for /f "tokens=1-2 delims=个文件 " %%a in (
		'2^>nul dir /a-d/-c *.jpg *.png *.bmp^|find " 个文件 " ') do (set "np=%%a"&set "zp=%%b")
	for /f "tokens=1-2 delims=个文件 " %%a in (
		'2^>nul dir /a-d/-c *.mp4 *.avi *.mov *.mkv^|find " 个文件 " ') do (set "nv=%%a"&set "zv=%%b")
	for /f %%v in (
		' powershell "if((!zp!+!zv!) -lt 1gb){[math]::round(-(!zp!+!zv!)/1mb,2)}else{[math]::round((!zp!+!zv!)/1gb,2)}" ') do set "zpv=%%v"
	if "!zpv:~0,1!"=="-" (set "zpv=!zpv:~1!MB") else (set "zpv=!zpv!GB")
	popd & ren "%%~fd" "%%d [!np!P!nv!V-!zpv!]"
)
endlocal&pause&exit/bCOPY

@echo off
rem 保存为ansi编码
cd /d "%~dp0"
rem 排除特定文件（000，00.1，00.2，00.3），不需要可以删除下一行
set "_f=^|findstr /rvix /c:"00\.[123]\.[jpb][pnm][gp]" /c:"000\.[jpb][pnm][gp]""
 
(for /f "delims=" %%d in ('dir /b /ad') do (
	setlocal
	pushd "%%d"
	for /f %%a in ('dir /b /a-d *.jpg *.png *.bmp %_f% ^|find /c /v ""') do (
		set /a "1/%%a" && set P=%%aP
	)
	for /f %%a in ('dir /b /a-d *.mp4 *.avi *.mov *.mkv ^|find /c /v ""') do (
		set /a "1/%%a" && set V=%%aV
	)
	for /f "tokens=3" %%i in ('dir /-c /a-d *.jpg *.png *.bmp *.mp4 *.avi *.mov *.mkv ^|findstr /iec:" 字节"') do (
		for /f "tokens=1-2 delims=." %%a in ('powershell -c "$input = %%i; [math]::Round($input / (1024 * 1024 *1024), 2)"') do (
			set /a "1/%%a" && set "Z=%%a.%%bG" || for /f "delims=." %%c in ('powershell -c "%%i/1024/1024"') do set Z=%%cM
		)
	)
	popd
	if defined Z (
		call echo ren "%%d" "%%d [%%p%%%%V%%-%%Z%%]"
	)
	endlocal
)) 2>nul
pauseCOPY

for /f %%v in ('powershell "[math]::Round(!z! / (1073*1000), 2)"') do set "sizeMB=%%v"COPY

for /f %%v in ('powershell "[math]::Round(!z! / (1073*1000*1000), 2)"') do set "sizeGB=%%v"COPY

for /f %%v in ('powershell "[math]::Round(!z! / (1073*1000), 0)"') do set "sizeMB=%%v"COPY

@echo off
rem 保存为ansi编码
cd /d "%~dp0"
for %%a in ("000" "00.1" "00.2" "00.3") do (
	set _"%%~a"=1
)
set -=-
for /f "delims=" %%d in ('dir /b /ad') do (
	set f=%%d
	setlocal enabledelayedexpansion
	pushd "!f!"
	for %%i in (*.jpg *.png *.bmp) do (
		if not defined _"%%~ni" (
			set /a p+=1
		)
		set /a m=%%~zi/1024,n+=m
	)
	set n/=1024
	for %%i in (*.mp4 *.avi *.mov *.mkv) do (
		set /a v+=1
		set t=%%~zi
		set t=!t:~0,-3!
		if "!t!" neq "" (
			set /a n+=!t!/1024
		)
	)
	popd
	for %%a in (P V) do (
		if defined %%a (
			set str=!str!!%%a!%%a
		)
	)
	if !n! gtr 1024 (
		set /a x=n/1024
		echo ren "!f!" "!f![!str!-!x!G]"
	) else if !n! neq 0 (
		echo ren "!f!" "!f![!str!-!n!M]"
	)
	endlocal
)
pauseCOPY

$srcFolder = 'E:\Test\';                  #源目录路径
 
$ext1 = @{'.jpg'=1; '.bmp'=1; '.png'=1; '.tif'=1; '.jpeg'=1} #图片扩展名
$name = @{'000'=1; '00.1'=1; '00.2'=1; '00.3'=1}             #需要排除的图片名称
$ext2 = @{'.mp4'=1; '.avi'=1; '.mov'=1; '.mkv'=1}            #视频扩展名
$Hash = @{}
 
Function Get-Size($sz) {
    If ($sz -ge 1GB) {
        return ($sz/1GB).ToString('0.00G');
    } ElseIf ($sz -ge 1MB) {
        return ($sz/1MB).ToString('0.00M');
    } Else {
        return ($sz/1KB).ToString('0.00K');
    }
}
 
forEach ($f In (Get-ChildItem -Literal $srcFolder -Recurse -File -Filter *.*)) {
    $fd = $f.DirectoryName;                       #目录名
    If ($ext1.Contains($f.Extension) -and !$name.Contains($f.BaseName)) {
        If (!$Hash.Contains($fd)) {
            $Hash.Add($fd, @(1, 0, $f.Length));   #添加哈希表，键=目录名；值=数组
        } Else {
            $Hash[$fd][0] += 1;                   #图片个数
            $Hash[$fd][2] += $f.Length;           #文件大小
        }
    } ElseIf ($ext2.Contains($f.Extension)) {
        If (!$Hash.Contains($fd)) {
            $Hash.Add($fd, @(0, 1, $f.Length));   #添加哈希表，键=目录名；值=数组
        } Else {
            $Hash[$fd][1] += 1;                   #视频个数
            $Hash[$fd][2] += $f.Length;           #文件大小
        }
    }
}
 
$keys = $Hash.GetEnumerator().Name;
[Array]::Sort($keys);                             #排序，避免重命名失败
 
for ($i=$keys.Count-1; $i -ge 0; $i--) {
    $k = $keys[$i];
    $sufFix = '[' + $Hash[$k][0] + 'P' + $Hash[$k][1] + 'V-' + (Get-Size $Hash[$k][2]) + ']';   #后缀
    $sufFix = $sufFix -replace '(?-i)(?<=\D)0[PV]';       #删掉0P、0V
    $newName = $k.Split('\')[-1] + $sufFix;
    Rename-Item -Literal $k -NewName $newName;            #重命名
}
pauseCOPY