5i365

回复 6# qixiaobin0715


    能用ps实现下吗? 楼上那位朋友的代码, 我看不太明白,

在我印象中, 一堆的CMD代码, 用ps来实现, 几行就搞定了, 而且有的示例代码,理解起来不太吃力

另外, 能实现随机均分吗? 现在分过去的文件夹名字是升序的 例如 a b c d

我用这个主要是想给学生随机分卷了, 以前是手动拖, 感觉批处理还是快点

qixiaobin0715

批处理也能干这事：

@echo off
setlocal enabledelayedexpansion
for /d %%a in (2\*) do (
    set /a x+=1
    set #!x!=%%a
)
for /d %%b in (1\*) do set /a y+=1
set /a n=y/x
set /a m=y%%x
if !m! neq 0 set /a n+=1
for /d %%c in (1\*) do (
    set /a k+=1
    set /a l=(k-1^)/n+1
    for %%d in (#!l!) do (
        if not exist "!%%d!\%%~nxc" (
            md "!%%d!\%%~nxc"
            xcopy "%%c\*.*" "!%%d!\%%~nxc\" /s>nul
        )
    )
)
pause
复制代码

5i365

回复 3# for_flr


    你好, 请问怎样实现把1文件中的那些文件随机均分到第2个文件夹中?  类似像我这样的问题, 搜索不到相关示例

5i365

回复 3# for_flr


    感谢大侠帮忙, 我把whatif删除了, 然后用下面的代码拷到.bat文件中, 能执行, 但是没有将文件拷到对应的文件夹中, 而是在桌面上新建了 A 和B 两个文件夹, 里面也缺少某个文件夹, 另外其子文件夹里的内容也没过去
示例文件打包下载:
https://wss1.cn/f/75c90piydb4 复制链接到浏览器打开

#@&cls&powershell "type '%~0'|out-string|iex"&pause&exit
$d1="C:\Users\Administrator\Desktop\1"
$d2="C:\Users\Administrator\Desktop\2"
$dir1=Get-ChildItem $d1|Where-Object{$_.PSIsContainer -eq $true}
$dir2=Get-ChildItem $d2|Where-Object{$_.PSIsContainer -eq $true}
$num=$dir1.Count / $dir2.Count 
$num=[math]::Truncate($num)
$mod=$dir1.Count % $dir2.Count
$begin=0
$end=$num
$begin2=0
$end2=$num-1

for ($a=0;$a -lt $dir2.Count;$a++){
if ($a -lt $mod){
  Copy-Item $dir1[$begin..$end].fullname $dir2[$a]
  $begin+=$num+1
  $end+=$num+1
  $begin2=$begin
  $end2=$begin2+$num-1
  
}else{
  Copy-Item $dir1[$begin2..$end2].fullname $dir2[$a]
  $begin2+=$num
  $end2+=$num
}
}
复制代码

for_flr

powershell太吃力了，这个问题用批处理简单一些。

for_flr

$d1="C:\Users\lenovo\Desktop\1"
$d2="C:\Users\lenovo\Desktop\2"
$dir1=Get-ChildItem $d1|Where-Object{$_.PSIsContainer -eq $true}
$dir2=Get-ChildItem $d2|Where-Object{$_.PSIsContainer -eq $true}
$num=$dir1.Count / $dir2.Count 
$num=[math]::Truncate($num)
$mod=$dir1.Count % $dir2.Count
$begin=0
$end=$num
$begin2=0
$end2=$num-1

for ($a=0;$a -lt $dir2.Count;$a++){
if ($a -lt $mod){
  Copy-Item $dir1[$begin..$end].fullname $dir2[$a] -WhatIf
  $begin+=$num+1
  $end+=$num+1
  $begin2=$begin
  $end2=$begin2+$num-1
  
}else{
  Copy-Item $dir1[$begin2..$end2].fullname $dir2[$a] -WhatIf
  $begin2+=$num
  $end2+=$num
}
}
复制代码

powershell,测试没问题的话，就把-whatif 删掉