[DJ Mogarych]

Powershell v5

Код:

$folder = "C:\temp\pictures"

cd $folder
dir -Recurse -File -Include "*.jpg","*.png","*.jpeg" |group {$_.basename -replace '.{3}$'} |% {
    mkdir $_.Name -ErrorAction SilentlyContinue > $null
    if (Test-Path $_.Name) {
        $_.group |mv -Destination $_.Name
    }
}

[Sham]

нужно чтобы скрипт работал и в корневой папке и подпапках. »

Как рекурсии с папками избежать. Папки создаёшь, и потом туда же лезешь и внутри получается опять создаёшь. Надо чтобы не лезть туда - или префикс какой-нибудь в имени папки, или переименование файлов при перемещении.

[DJ Mogarych]

Скрипт выше создаёт папки на верхнем уровне, а файлы вытаскивает из всех папок рекурсивно.

[megaloman]

Floatzel, cmd

Код:

@Echo Off &Cls
	Set "BoxIn=Z:\Soft_In"
	Pushd "%BoxIn%"||(Echo Folder "%BoxIn%" not found &Pause &Exit /B 2)

	For /f "usebackq delims=" %%f IN (`2^>nul Dir /b /s /A:-D  "%BoxIn%\*-??.*" ^|FindStr /R /C:"-..\..*$"`) Do (
		Set "DirName=%%~nf"
		Call Set "DirName=%%DirName:~0,-3%%"
		2>nul Call MD "%%DirName%%"
		>nul Call Move /Y "%%f" "%%DirName%%\"
	)
	For /F "usebackq delims=" %%d In (`2^>nul Dir /b /s /A:D  "%BoxIn%\" /S /B /A:D ^|Sort /R`) Do 2>nul RD "%%d"
Pause   
Exit /B 2

Путь к исходной папке укажите свой вместо Z:\Soft_In
После перемещения файлов пустые папки удаляются (последний For)