[DJ Mogarych]

Powershell:

Код:

$folder = "D:\temp\folder"

cd "$folder"
dir -file |% {
mkdir "$($_.basename)"
mv "$($_.fullname)" "$($_.basename)\room.dat"
}

[megaloman]

Код:

@Echo Off
	Set "BoxIn=Z:\Box_In"
	Set "Mask=????_room.dat"

	For /f "usebackq tokens=1,* delims=_" %%i In (`2^>nul Dir /B /A:-D "%BoxIn%\%Mask%"`) Do (
		If Not "%%j"=="" (2>nul md "%BoxIn%\%%i" &>nul Move "%BoxIn%\%%i_%%j" "%BoxIn%\%%i\%%j") 
	)
Exit /B

Если батник в той же папке, что и файлы, то:

Код:

@Echo Off
	Set "Mask=????_room.dat"

	For /f "usebackq tokens=1,* delims=_" %%i In (`2^>nul Dir /B /A:-D "%Mask%"`) Do (
		If Not "%%j"=="" (2>nul md "%%i" &>nul Move "%%i_%%j" "%%i\%%j") 
	)
Exit /B