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