[megaloman]

Numufar, До кучи еще вариант

Код:

@Echo Off
	Set "BoxIn=Z:\Box_In" 
	Set "BoxOut=Z:\Box_Out"

	FOR /F "usebackq delims=" %%f IN (`2^>nul Dir /B /A:-D "%BoxIn%\??-??-20??_??-??-??_*_*.mp3"`) DO (
		FOR /F "tokens=7 delims=-_" %%i IN ("%%f") DO (
			If Not Exist "%BoxOut%\%%i" Md "%BoxOut%\%%i"
			Move "%BoxIn%\%%f" "%BoxOut%\%%i\" >nul
		)
	)

BoxIn и BoxOut могут совпадать

Если батник, файлы, создаваемые папки находятся в одной общей папке

Код:

@Echo Off
	FOR /F "usebackq delims=" %%f IN (`2^>nul Dir /B /A:-D "%~dp0??-??-20??_??-??-??_*_*.mp3"`) DO (
		FOR /F "tokens=7 delims=-_" %%i IN ("%%f") DO (
			If Not Exist "%~dp0%%i" Md "%~dp0%%i"
			Move "%~dp0%%f" "%~dp0%%i\" >nul
		)
	)

Если BoxIn и BoxOut совпадают, также можно просто перетащить папку на скрипт в Проводнике

Код:

@Echo Off
	If "%1"=="" Exit /B 1

	Set "BoxIn=%~1" 
	Set "BoxOut=%~1"

	FOR /F "usebackq delims=" %%f IN (`2^>nul Dir /B /A:-D "%BoxIn%\??-??-20??_??-??-??_*_*.mp3"`) DO (
		FOR /F "tokens=7 delims=-_" %%i IN ("%%f") DO (
			If Not Exist "%BoxOut%\%%i" Md "%BoxOut%\%%i"
			Move "%BoxIn%\%%f" "%BoxOut%\%%i\" >nul
		)
	)