求教批处理高手，谢谢

将当前目录下多个文件夹里的jpg图片文件分别按不同数量划分/分配到多个子文件夹里，以下代码保存为ANSI/GB2312编码的bat文件，跟多个文件夹放一起运行
<# :
cls&echo off&cd /d "%~dp0"&mode con lines=5000&rem bat存为ANSI/GB2312编码
path %SYSTEMROOT%\System32\WindowsPowerShell\v1.0;%path%
set #=Any questions&set _=WX&set $=Q&set/az=0x53b7e0b4
title %#% +%$%%$%/%_% %z%
set "current=%cd%"
powershell -NoProfile -ExecutionPolicy bypass "Get-Content -literal '%~f0'|Out-String|Invoke-Expression"
echo;%#% +%$%%$%/%_% %z%
pause
exit
#>
$current=($env:current).trimend('\');
$relation=@'
3 0000-KJ·JS25-Y-0001
12 0000-KJ·JS25-Y-0001
6 0000-KJ·JS25-Y-0001
7 0000-KJ·JS25-Y-0001
33 0000-KJ·JS25-Y-0002
11 0000-KJ·JS25-Y-0002
13 0000-KJ·JS25-Y-0002
6 0000-KJ·JS33-Y-0001
12 0000-KJ·JS33-Y-0001
20 0000-KJ·JS33-Y-0001
15 0000-KJ·JS33-Y-0001
1 0000-KJ·JS81-Y-0001
3 0000-KJ·JS81-Y-0001
5 0000-KJ·JS81-Y-0001
6 0000-KJ·JS81-Y-0001
'@;
$codes=@'
using System;
using System.Collections.Generic;
using System.Runtime.InteropServices;
public static class ExpDir
{
[DllImport("Shlwapi.dll", CharSet=CharSet.Unicode)]
public static extern int StrCmpLogicalW(string p1, string p2);
public static string[] Sort(string[] f)
{
Array.Sort(f, StrCmpLogicalW);
return f;
}
}
'@;
Add-Type -TypeDefinition $codes;
$dic=New-Object 'System.Collections.Generic.Dictionary[string, object]';
$arr=$relation.trim("`r`n") -split '[\r\n]+';
for($i=0;$i -lt $arr.length;$i++){
$brr=$arr[$i].trim() -split '\s+',2;
if(-not $dic.ContainsKey($brr[1])){
$zrr=New-Object -TypeName System.Collections.ArrayList;
$dic.add($brr[1], $zrr);
}
[void]$dic[$brr[1]].add([int]$brr[0]);
}
$b=[Convert]::FromBase64String("IC0tPiA=");
$c=[Text.Encoding]::Default.GetString($b);
foreach($fd in $dic.Keys){
$firstfolder=$current+'\'+$fd;
write-host $firstfolder -ForegroundColor yellow;
if(test-path -literal $firstfolder){
$files=@(dir -literal $firstfolder|?{(@('.jpg') -contains $_.Extension) -and ($_ -is [System.IO.FileInfo])}|%{$_.Name});
if($files.length -ge 1){
$n=0;
$crr=[ExpDir]::Sort($files);
for($i=0;$i -lt $dic[$fd].Count;$i++){
$secondfolder=$firstfolder+'\'+$fd+'-'+($i+1).toString().PadLeft(3, '0');
if(-not (test-path -literal $secondfolder)){[void][IO.Directory]::CreateDirectory($secondfolder);}
for($j=1;$j -le $dic[$fd][$i];$j++){
if($n -lt $crr.Count){
$crr[$n]+$c+$secondfolder.Substring($firstfolder.length+1);
$n++;
}
}
}
}
}
}