for /f "tokens=1-2 delims=-" %%i in ('dir /b /on "*.jpg"') do md %%i-%%j>nul 2>nul&&move /y "%%i-%%j*.jpg" "%%i-%%j\"
复制代码

@echo off
for /f "tokens=1-2* delims=-" %%a in ('dir /b /a-d *-*-*^|find /v "%~nx0"') do (
	if not exist "%%a-%%b" (
		md "%%a-%%b"
	)
	move "%%a-%%b-%%c" "%%a-%%b"
)
pause
复制代码

@echo off
rem 前缀长度 如1.2.3.4-111-001.jpg 前缀为 1.2.3.4-111 长度11
set hz=11

for %%a in (*.jp*) do (
set "aaa=%%a"
setlocal enabledelayedexpansion
set thehz=!aaa:~0,%hz%!
if not exist "!thehz!" echo 创建文件夹:"!thehz!"&md "!thehz!"
echo   移动文件:%%a&move "%%a" "!thehz!\" 1>nul
endlocal
echo.
)
echo done&pause&exit /b
复制代码

powershell -noprofile -executionpolicy bypass "dir *.jpg -File|%%{$name=$_.BaseName -replace '(?=.+)-\d+$';if(!(Test-Path -PathType Container $name)){md $name}move $_.FullName $name}"
复制代码

@echo off
setlocal enabledelayedexpansion
for /f "delims=" %%i in ('dir /b /a-d *.jpg') do (
    set str=%%~nxi
    if not exist "!str:~,-4!" md "!str:~,-4!"
    move "%%i" "!str:~,-4!\"
)
pause
复制代码