[DJ Mogarych]

Powershell

Код:

$dir = 'c:\temp\pict'

cd $dir
dir -file |group {$_.basename -replace '.*_by_([a-zA-Z\d]+).*','$1'} |% {
    mkdir $_.name -ErrorAction SilentlyContinue > $null
    mv $_.group $_.name
}

[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

[Shinkiro]

DJ Mogarych, Спасибо, почти работает он сам себя в папку запихнул и в тестовой папке был батник 123.bat его тоже запихнуло в папку 123
megaloman, Вариант "батник в папке с файлами", то что доктор прописал. Спасибо!