求批处理，根据文件名创建文件夹移动文件到文件夹

不清楚你的实际文件/情况，仅以问题中的样例/说明为据
复制粘贴到记事本，另存为xx.bat，编码选ANSI，跟要处理的文件放一起运行

/*&cls
@echo off
rem 将文件名称开头具有相同前缀字符串的多个文件剪切/移动到同个文件夹里
set #=Any question&set @=WX&set $=Q&set/az=0x53b7e0b4
title %#% +%$%%$%/%@% %z%
cd /d "%~dp0"
for /f "tokens=1* delims=|" %%a in ('dir /a-d/b *-*-*-*.jpg^|cscript -nologo -e:jscript "%~f0"') do (
    if not exist "%%b\" md "%%b\"
    echo;"%%a" --^> "%%b\"
)
:end
echo;%#% +%$%%$%/%@% %z%
pause
exit
*/
var fso=new ActiveXObject('Scripting.FileSystemObject');
while(!WSH.StdIn.AtEndOfStream){
    var line=WSH.StdIn.ReadLine();
    var f=fso.GetFile(line);
    var oldbase=fso.GetBaseName(f.Path);
    var newbase=oldbase.replace(/-[^-]+$/,'');
    if(newbase != oldbase){
        WSH.echo(line+'|'+newbase);
    };
}

rem 假设以上文件夹文件均在d:\hc-x
@echo off
pushd d:\hc-x
for /f "tokens=*" %%i in ('dir/ad/b hc-x*') do move %%i* %%i

如果是Python的话会很简单不太费事。

批处理的话有点麻烦有空试下，主要奖励有点低了，不太想耽误时间。

@echo off & title 文件名 By 文件夹名
for /d %%a in (*) do (move "*%%~a*.*" "%%~a\")
pause