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

33453506 · 发表于 2012-2-23 11:31:38

本帖最后由 pcl_test 于 2016-7-22 22:45 编辑

规则说明：

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

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

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

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

cjiabing · 发表于 2012-2-23 11:48:31

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

33453506 · 发表于 2012-2-23 11:49:53

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

cjiabing · 发表于 2012-2-23 13:05:05

本帖最后由 cjiabing 于 2012-2-23 13:11 编辑

回复 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 · 发表于 2012-2-23 13:14:18

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

Perl · 发表于 2012-2-23 13:15:08

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

Perl · 发表于 2012-2-23 13:18:08

回复 4# cjiabing

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

dir /b /a-d

复制代码

cjiabing · 发表于 2012-2-23 13:53:18

本帖最后由 cjiabing 于 2012-2-23 13:54 编辑

回复 7# Perl

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

33453506 · 发表于 2012-2-23 16:09:59

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

Perl · 发表于 2012-2-23 21:16:03

回复 4# cjiabing

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

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

Perl · 发表于 2012-2-23 21:36:56

回复 8# cjiabing

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

Perl · 发表于 2012-2-23 21:37:42

@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 · 发表于 2012-2-23 23:34:14

回复 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 · 发表于 2012-2-24 00:27:45

回复 13# cjiabing

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

Perl · 发表于 2012-2-24 00:32:09

回复 13# cjiabing

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

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

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