[文件操作] 一个批处理重命名问题，请教各位大神

@echo off
setlocal EnableDelayedExpansion
pushd "%~dp0"
for /r . /d %%A in (*) do (
  pushd "%%A"
  set /a ctr=0,left=0,right=0
  set file1=
  set file2=
  for /f "delims=" %%B in ('2^>nul,where ".:*.jpg"') do (
    set /a ctr+=1
    if !ctr! equ 1 (
      ren "%%B" "机台照.jpg"
    ) else (
      set /a left=right,right=left+5
      ren "%%B" "!left!-!right!m.jpg"
      set file1=!file2!
      set file2="!left!-!right!m.jpg"
    )
  )
  ren !file1! "全景照.jpg"
  ren !file2! "喷漆照.jpg"
  popd
)
popd
endlocal
pause
exit /b
复制代码

@echo off
Setlocal enabledelayedexpansion
md 55
cd.>IMG_20190902_172439.jpg
cd.>IMG_20190902_172453.jpg
cd.>IMG_20190902_172456.jpg
cd.>IMG_20190902_172500.jpg
cd.>IMG_20190902_172503.jpg
cd.>IMG_20190902_172512.jpg
cd.>IMG_20190902_172555.jpg
move *.jpg .\55
echo 文件创建完成，任意键显示重命名要求
pause >nul
cls
echo 要求重命名格式如下
ECHO 第一张        机台照.jpg
ECHO 最后一张     喷漆照.jpg
ECHO 倒数第二张  全景照.jpg
ECHO 第二张开始  0-5m.jpg
ECHO 第三张        5-10m.jpg
ECHO 第四张        10-15m.jpg
ECHO 第五张        15-20m.jpg
ECHO .
ECHO .
ECHO .
ECHO .
ECHO 第101张      495-500m.jpg
echo 任意键开始处理
pause >nul
pushd "%~dp0"
for /r . /d %%A in (*) do (
  pushd "%%A"
  set /a ctr=0,left=0,right=0
  set file1=
  set file2=
  for /f "delims=" %%B in ('2^>nul,where ".:*.jpg"') do (
    set /a ctr+=1
    if !ctr! equ 1 (
      ren "%%B" "机台照.jpg"
    ) else (
      set /a left=right,right=left+5
      ren "%%B" "!left!-!right!m.jpg"
      set file1=!file2!
      set file2="!left!-!right!m.jpg"
    )
  )
  ren !file1! "全景照.jpg"
  ren !file2! "喷漆照.jpg"
  popd
)
popd
endlocal
pause
exit /b
复制代码

(ls -Rec | ? { $_ -is [IO.DirectoryInfo] }).FullName | Foreach {
	$Jpg = ls $_\IMG*.jpg;
	if ($Jpg) {
		if ($Jpg[0]) { Ren $Jpg[0].FullName -NewName '机台照.jpg' -Force -ea 'SilentlyContinue' }
		if ($Jpg[-2]) { Ren $Jpg[-2].FullName -NewName '全景.jpg' -Force -ea 'SilentlyContinue' }
		if ($Jpg[-1]) { Ren $Jpg[-1].FullName -NewName '喷漆.jpg' -Force -ea 'SilentlyContinue' }

		if ($Jpg.Count -gt 3) {
			$n = 0;
			For ($i = 1; $i -lt $Jpg.Count - 2; $i++) {
				Ren $Jpg[$i].FullName -NewName ([String]::Concat("$n", '-', ($n + 5), 'm.jpg'));
				$n += 5;
			}
		}
	}
}
复制代码

@echo off & setlocal enabledelayedexpansion
for /f "delims=" %%a in ('dir /b/ad/s') do (
     set file=&set file1=&set "file2="
     set /ai=m=0,n=-5
     for /f "delims=" %%b in ('dir /b/a-d "%%~fa\*.jpg" ') do (
          if defined file ( set /ai+=1) else set "file=%%~fa\%%b"
          set "file2=!file1!"
          set "file1=%%~fa\%%b"
    )
    for /f "delims=" %%b in ('dir /b/a-d "%%~fa\*.jpg" ^| more +1') do (
         set /am+=5,n+=5,i-=1
         if !i! gtr 1 ren "%%~fa\%%b" "!n!-!m!m%%~xb" 2>nul
    )
    ren "!file!" "机台照.jpg" 2>nul
    ren "!file2!"  "喷漆照.jpg" 2>nul
    ren "!file1!" "全景照.jpg" 2>nul
)
pause
复制代码