Perl

回复 4# cjiabing


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

dir /b /a-d
复制代码

Perl

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

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

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

cjiabing

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