xczxczxcz

回复 1# Haro


    已修正。 在三楼。

这个会判断是文件夹才工作。

for ($i=1;$i -le 2000;$i++){
	if ([System.Io.Directory]::Exists($i)) {
		Foreach($folder in ("FW","QLR","QT","DA")) {
			New-Item ".\$i\$folder" -type Directory -force
		}
		(Gci ".\$i")|?{$_ -match "FW_[1-4]\.(jpg|png|gif|tiff|bmp)"}|Move-Item -Dest ".\$i\FW\" -force
	}
}
pause
复制代码

=================

Haro

回复 13# xczxczxcz


    大佬，能把你微信或者QQ发给我吗

zuodx

######PERL#########
use strict;

for my $u (1..2000){
        for my $d qw(FW QLR QT DA){
                my $cmd = "md $u\\$d" ;
                #print "$cmd\n";
                `$cmd`;
        }
    for my $f (1..4){       
                my $cmd = "copy $u\\FW_${f}.*   $u\\fw";
                #print "$cmd\n";
                `$cmd`;
        }
}
######END##########
#把以上内容拷贝到p.pl
#把p.pl放到1 2 3 .。。。。等目录的父目录下。
#p.pl  就行了。

Haro

好了，已经解决了

523066680

回复 18# zuodx


    一般人没安装Perl环境吧