[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)