[megaloman]

cmd

Код:

@Echo Off &Cls &SetLocal EnableDelayedExpansion
	Set "FileIn=Z:\Box_In\*_by_*.*"
	Set "BoxOut=Z:\Box_In"
	For %%f In ("%FileIn%") Do (
		Set "Name=%%~nf"
		For /F "delims=._-" %%d In ("!Name:*_by_=!") Do (2>nul Md "%BoxOut%\%%d" &>nul Move "%%f"	"%BoxOut%\%%d\")
	)
Pause
Exit /B

Если батник в папку с файлами и папки создаются здесь же, можно и так

Код:

@Echo Off &Cls &SetLocal EnableDelayedExpansion
	Set "FileIn=%~dp0*_by_*.*"
	Set "BoxOut=%~dp0"
	For %%f In ("%FileIn%") Do (
		Set "Name=%%~nf"
		For /F "delims=._-" %%d In ("!Name:*_by_=!") Do (2>nul Md "%BoxOut%\%%d" &>nul Move "%%f"	"%BoxOut%\%%d\")
	)
Pause
Exit /B