[文件操作] 【已解决】文件夹中是否可以批处理建文件夹将前17位相同名称的图片放在一起？

@echo off &setlocal &(dir /b/s/ad|sort /r &echo,%cd%)>"all.d"
for /f "delims=" %%d in (all.d) do for %%F in ("%%d\*.jpg") do (
   set "nF=%%~nF" &setlocal enabledelayedexpansion &set "nF17=!nF:~,17!"
   for /f %%n in ('dir /b/a-d "%%d\!nF17!*%%~xF"^|find /c /v "" ') do if %%n gtr 1 (
       md "%%d\!nF17!"
       move /y "%%d\!nF17!*%%~xF" "%%d\!nF17!"
   ) 2>ul
   endlocal
)
del/q "all.d"&endlocal&pause&exit/b
复制代码

@echo off
setlocal enabledelayedexpansion
for /f "delims=" %%i in ('dir /b /s /ad^|sort /r') do (
    cd /d "%%i"
    if exist "*.jpg" (
        for %%j in (*.jpg) do (
            set str=%%~nj
            set str=!str:~,17!
            if not exist "!str!" md "!str!"
            move "!str!*.jpg" "!str!\"
        )>nul 2>nul
    )
)
pause
复制代码

@echo off
cd /d "%~dp0"
set m=17
for /f "delims=" %%d in ('dir /b /s /ad') do (
	set f=%%d
	set d=%%~nxd
	for /f "delims=" %%i in ('2^>nul dir /b /a-d "%%d\*.jpg"') do (
		set n=%%~ni.
		setlocal enabledelayedexpansion
		if "!n:~%m%,1!" neq "" (
			if /i "!n:~0,%m%!" neq "!d!" (
				md "!f!\!n:~0,%m%!" 2>nul
				move "!f!\!n:~0,-1!%%~xi" "!f!\!n:~0,%m%!\"
			)
		)
		endlocal
	)
)
pause
复制代码