（BAT批处理）如何批量创建与对应文件同名的文件夹，并将文件移入？

网友解答：仅以问题中的样例说明及猜测为据；以下代码复制粘贴到记事本，另存为xx.bat，编码选ANSI，跟要处理的文件放一起双击运行：

<# :
cls&echo off&cd /d "%~dp0"&mode con lines=5000
rem 将当前目录里的多个文件，根据文件名称开头第一个空格前面的相同字符创建文件夹，并将文件剪切/移动到相应的文件夹里
set #=Any question&set _=WX&set $=Q&set/az=870245967
title %#% +%$%%$%/%_% %z%
set "self=%~f0"
powershell -NoProfile -ExecutionPolicy bypass "Get-Content -literal '%~f0'|Out-String|Invoke-Expression"
echo;%#% +%$%%$%/%_% %z%
pause
exit
#>
$b=[Convert]::FromBase64String("IC0tPiA=");
$c=[Text.Encoding]::Default.GetString($b);
$self=get-item -literal $env:self;
$current=$self.Directory.FullName;
$files=@(dir -literal $current|?{($self.Name -ne $_.Name) -and ($_ -is [System.IO.FileInfo])});
for($i=0;$i -lt $files.length;$i++){
    $kw=$files[$i].BaseName -split '\s';
    if(-not (test-path -literal $kw[0])){[void][IO.Directory]::CreateDirectory($kw[0]);}
    $files[$i].Name+$c+$kw[0];
}