[文件操作] 批处理如何批量将多个文件按指定数量分配到多个文件夹里

33453506

规则说明：

　　把当前目录里面所有的文件分配在新建立的文件夹内

　　自动新建立文件夹，自动筛选18个文件（或更多文件，最好可以自定义）导入在新建的文件夹内

　　如果当前目录里面有180个文件，那么就自动建立10个文件夹，并且每个文件夹精确导入18个文件即可

　　有没有大神可以写个批处理搞定的？小弟感激不禁啊！

cjiabing

你的意思是不是“自动建立新文件夹并将当前目录所有文件分配到新建文件夹中每个文件夹分到18个？”

33453506

对对对，版主大神，就是这个意思！！！！！！在线等您答复！

cjiabing

回复 3# 33453506
代码有点复杂，可能没空弄，我在弄其他事情。提供点思路：
1、获得当前目录层所有文件 dir /b *.*    文件夹不算在内。文件的个数统计办法，边搜索边统计可以用set /a num+=1，我更习惯在事后用findstr /n。
2、如何分配18个？你可以使用十八的倍数来判断，这个稍微难点。

 
@echo off&setlocal enabledelayedexpansion
::设置要建立的文件夹顺序，Newp.txt是当前目录的所有文件。
cd.>Newp.txt
dir /b *.*>>Newp.txt
set newf=0
set num=0
md New0
for /f "tokens=*" %%a in (Newp.txt) do (
    if !num! == 18 set num=0&set /a newf+=1&md New!newf!
    copy %%a New!newf!&set /a num+=1
)
复制代码

————————————————————
我自己试了下，不能直接用dir，先转个txt。

33453506

确实是不会呀，大神，帮帮忙吧！！！！！

Perl

如果有170个文件，那么自动建立几个文件夹，并且每个文件夹精确导入几个文件？

Perl

回复 4# cjiabing


为什么不能直接用dir？
如果要排除文件夹，可以用：

dir /b /a-d
复制代码

cjiabing

回复 7# Perl


    为什么用txt你试试看就知道了。不想想太多，完成任务即可。
    呵呵，没用过“-”，谢谢提醒。

33453506

谢谢版主大神，已经搞定了！哇哈哈哈！！！！！！！！！！！！！！！

Perl

回复 4# cjiabing


cd.>Newp.txt
dir /b *.*>>Newp.txt
这种写法是何用意？

为什么不直接：
dir /b *.*>Newp.txt

Perl

回复 8# cjiabing


为什么不用txt，你多学学就知道了

Perl

@echo off
setlocal enabledelayedexpansion
set fileNum=5
set fileID=0
set folderPre=MyFolder
set folderSuf=0
for /f "delims=" %%a in ('dir /b /a-d') do (
    set /a mod=!fileID! %% %fileNum%
    if "!mod!" == "0" (
        set /a folderSuf+=1
        md "%folderPre%_!folderSuf!"
    )
    set /a fileID+=1
    copy "%%a" "%folderPre%_!folderSuf!\"
)
复制代码

cjiabing

回复 12# Perl


    哥，你写的比我复杂呢！~

cd.>Newp.txt
dir /b *.*>>Newp.txt
这种写法是何用意？
————cd.>Newp.txt，这种写法是为了清空该文本文件，创建0字节文件，防止下次写入时重复读取上次文件的结果。所以，写代码要考虑重复使用的特性。
————如果你不使用的话，你重复几次运行就知道了。它的作用意义类似于del Newp.txt。

为什么不直接：
dir /b *.*>Newp.txt
————我原来是直接 for /f %%a in ('dir /b *.*') do echo;%%a  的。文件夹内只有21个文件，但结果却是在新创建的每个文件夹都塞满18个文件，那就意味着echo:%%a的值不是一次一个，而是一次一堆。
————因为不想过多纠缠于此，采用临时文件Newp.txt的办法转了一下，达到目标就行，不必太过计较。

    当然，如果你想知道为什么，你可以测试，以你的测试为准。因为我写整个代码只测试了两次，一次错误，一次正确，正确率只有50%以下。

Perl

回复 13# cjiabing


请教一下12楼和4楼相比，复杂在什么地方？

Perl

回复 13# cjiabing


10楼的疑问并不是说临时文件和for /f + dir
而是说，为何不把cd+dir >>合并成dir >