批处理之家 - Powered by Discuz! Board

标题: 20元求助，批处理怎么在已有的多个文件夹里面创建多个子文件夹？ [打印本页]

作者: Haro 时间: 2018-11-12 01:36 标题: 20元求助，批处理怎么在已有的多个文件夹里面创建多个子文件夹？

现在我有2000个母文件夹，母文件夹名字是从1开始按顺序到2000，
现在我要在每个母文件夹里面都要创建4个子文件夹，分别是：FW,QLR,QT,DA
然后每个母文件夹里面有四张照片要放进去FW这个子文件夹里面，照片名字都改号了是FW_1和FW_2,FW_3,FW_4
求助大佬应该怎么弄，万分感谢

作者: Haro 时间: 2018-11-12 01:40

求高手帮忙，

作者: Haro 时间: 2018-11-12 02:03 标题: 20元求助，怎么在已有的多个文件夹里面创建多个子文件夹

现在我有2000个母文件夹，母文件夹名字是从1开始按顺序到2000，
现在我要在每个母文件夹里面都要创建4个子文件夹，分别是：FW,QLR,QT,DA
然后每个母文件夹里面有四张照片要放进去FW这个子文件夹里面，照片名字都改号了是FW_1和FW_2,FW_3,FW_4
求助大佬应该怎么弄，万分感谢

作者: hlzj88 时间: 2018-11-12 05:02

本帖最后由 hlzj88 于 2018-11-12 05:03 编辑

@echo off
for /l %%i in (1,1,2000) do (
  cd %%i\
  md FW&md QLR&md QT&md DA
  move /y fw*.* FW\
  cd ..
  )
pause
exit
复制代码

把这个批处理放在2000个文件的同级运行。

作者: xczxczxcz 时间: 2018-11-12 07:37

本帖最后由 xczxczxcz 于 2018-11-12 09:20 编辑

Win7 及以上 powershell版。保存为 XXX.PS1

for ($i=1;$i -le 2;$i++){
	if((test-path $i) -eq $true) {
		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
复制代码

=======右键，使用powershell 运行
一目了然。

作者: xczxczxcz 时间: 2018-11-12 07:44

本帖最后由 xczxczxcz 于 2018-11-12 10:22 编辑

Win7 及以上 powershell版。保存为 XXX.PS1

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
复制代码

=======右键，使用powershell 运行 XP需要安装 powershell,可用纯P。
一目了然。
纯P

@echo off
cd /d "%~dp0"
for /l %%a in (1,1,2000) do (
	if /i exist "%%a" (
		for %%e in (FW,QLR,QT,DA) do md "%%a\%%e"
		for /l %%i in (1,1,4) do move /y "%%a\FW_%%i.*" "%%a\FW\"
	)
)
pause
复制代码

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

作者: Haro 时间: 2018-11-12 08:17

回复 3# xczxczxcz

W10怎么弄啊大佬，能说详细一点吗

作者: xczxczxcz 时间: 2018-11-12 08:30

回复 4# Haro

WIN10 都支持。PS版：把上面的保存为 xxx.ps1，右键点击 xxx.ps1 弹出菜单选 ’使用 PowerShell 运行‘，然后就可看创建文件夹移动文件的各种对象。
下面的为纯P 保存为：xxx.bat。直接双击运行。

都和你的2000个文件夹放在同一目录下。

作者: Haro 时间: 2018-11-12 08:36

回复 5# xczxczxcz

大佬我不是要新建文件夹，我是要在原有的文件夹里面运行这个

作者: Haro 时间: 2018-11-12 08:37

回复 5# xczxczxcz

不需要新建文件夹，我现在有2000个文件夹，里面每个文件夹有4张照片，然后要在这2000个文件夹里面建4个文件夹

作者: xczxczxcz 时间: 2018-11-12 08:43

回复 7# Haro

不会新建 2000 个文件夹，只是在（每个文件夹/2000）中新建4个指定文件夹。然后移动图片到 FW

作者: Haro 时间: 2018-11-12 08:51

回复 8# xczxczxcz

可是我刚刚运行了，就是新建了2000文件夹

作者: Haro 时间: 2018-11-12 08:52

回复 9# Haro

用的第二个

作者: xczxczxcz 时间: 2018-11-12 08:54

回复 9# Haro

改一下。还真的。

作者: xczxczxcz 时间: 2018-11-12 09:03

纯P

@echo off
cd /d "%~dp0"
for /l %%a in (1,1,2000) do (
	if /i exist "%%a" (
		for %%e in (FW,QLR,QT,DA) do md "%%a\%%e"
		for /l %%i in (1,1,4) do move /y "%%a\FW_%%i.*" "%%a\FW\"
	)
)
复制代码

作者: xczxczxcz 时间: 2018-11-12 09:14

本帖最后由 xczxczxcz 于 2018-11-12 10:21 编辑

回复 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 时间: 2018-11-12 12:01

回复 13# xczxczxcz

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

作者: zuodx 时间: 2018-11-12 13:15

######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 时间: 2018-11-12 17:01

好了，已经解决了

作者: 523066680 时间: 2018-11-12 17:54

回复 18# zuodx

一般人没安装Perl环境吧

欢迎光临批处理之家 (http://bbs.bathome.net/)