求文件随机分发批处理怎么写？

qiqing

例如，文件夹A里面有几万个文件，随机把这些文件，每600个移到新建文件夹1,2,3。。。。这些新建文件夹都建在A文件夹的目录里，一定随机抽取移动，不按照文件名，创建时间这些顺序来移动文件，

不知道我说的清楚不，怎么写呢？求教

zaqmlp

1. @echo off
   
2. set info=互助互利,支付宝扫码头像,感谢赞助
   
3. rem 有问题,可加QQ956535081及时沟通
   
4. title %info%
   
5. start mshta VBScript:Execute("msgbox(""%info%""):close")
   
6. cd /d "%~dp0"
   
7. set "数量=600"
   
8. powershell ^
   
9.     $files=@(dir^|?{($_ -is [System.IO.FileInfo]) -and ($_.Name -ne '%~nx0')});^
   
10.     $n=1;$list=get-random -input $files -count $files.length;^
    
11.     for($i=0;$i -lt $list.length;$i++){^
    
12.         if(-not (test-path -liter $n)){[void](md $n);};^
    
13.         write-host ($list[$i].Name+' --^> '+$n);^
    
14.         move -liter $list[$i].Name $n;^
    
15.         if((($i+1) %% %数量%) -eq 0){$n++;};^
    
16.     }
    
17. pause

复制代码

qiqing

回复 2# zaqmlp


    非常感谢

zaqmlp

回复 3# qiqing

嗯，那就赞助下吧

codegay

nim语言版。

1. import os, random, sequtils
   
2. 
   
3. const
   
4.     source = """D:\gayhub\test\测试a"""
   
5.     target = """D:\gayhub\test\测试b"""
   
6.     max = 600
   
7. 
   
8. var dirs:seq[string] = @[]
   
9. 
   
10. for k,p in walkDir(source):
    
11.     if k == pcFile:
    
12.         dirs.add(p)
    
13. 
    
14. randomize()
    
15. shuffle(dirs)
    
16. 
    
17. var count = 0
    
18. 
    
19. if dirs.len > max:
    
20.     if dirs.len mod max > 0:
    
21.         count = (dirs.len div max) + 1
    
22.     else:
    
23.         count = dirs.len div max
    
24. else:
    
25.     count = 1
    
26. 
    
27. 
    
28. var dist = dirs.distribute(count, false)
    
29. 
    
30. assert dist.len == count
    
31. 
    
32. for i, p in dist:
    
33.     var path =  target / $(i+1)
    
34.     discard existsOrCreateDir(path)
    
35.     for f in p:
    
36.         moveFile(f,path/extractFilename(f))
    
37. 
    

复制代码