Board logo

标题: 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 编辑
  1. @echo off
  2. for /l %%i in (1,1,2000) do (
  3.   cd %%i\
  4.   md FW&md QLR&md QT&md DA
  5.   move /y fw*.* FW\
  6.   cd ..
  7.   )
  8. pause
  9. exit
复制代码
把这个批处理放在2000个文件的同级运行。
作者: xczxczxcz    时间: 2018-11-12 07:37

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

Win7 及以上 powershell版。保存为 XXX.PS1
  1. for ($i=1;$i -le 2;$i++){
  2. if((test-path $i) -eq $true) {
  3. Foreach($folder in ("FW","QLR","QT","DA")) {
  4. New-Item ".\$i\$folder" -type Directory -force
  5. }
  6. (Gci ".\$i")|?{$_ -match "FW_[1-4]\.(jpg|png|gif|tiff|bmp)"}|Move-Item -Dest ".\$i\FW\" -force
  7. }
  8. }
  9. pause
复制代码
=======右键,使用powershell 运行
一目了然。
作者: xczxczxcz    时间: 2018-11-12 07:44

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

Win7 及以上 powershell版。保存为 XXX.PS1
  1. for ($i=1;$i -le 2000;$i++){
  2. if ([System.Io.Directory]::Exists($i)) {
  3. Foreach($folder in ("FW","QLR","QT","DA")) {
  4. New-Item ".\$i\$folder" -type Directory -force
  5. }
  6. (Gci ".\$i")|?{$_ -match "FW_[1-4]\.(jpg|png|gif|tiff|bmp)"}|Move-Item -Dest ".\$i\FW\" -force
  7. }
  8. }
  9. pause
复制代码
=======右键,使用powershell 运行 XP需要安装 powershell,可用纯P。
一目了然。
纯P
  1. @echo off
  2. cd /d "%~dp0"
  3. for /l %%a in (1,1,2000) do (
  4. if /i exist "%%a" (
  5. for %%e in (FW,QLR,QT,DA) do md "%%a\%%e"
  6. for /l %%i in (1,1,4) do move /y "%%a\FW_%%i.*" "%%a\FW\"
  7. )
  8. )
  9. 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
  1. @echo off
  2. cd /d "%~dp0"
  3. for /l %%a in (1,1,2000) do (
  4. if /i exist "%%a" (
  5. for %%e in (FW,QLR,QT,DA) do md "%%a\%%e"
  6. for /l %%i in (1,1,4) do move /y "%%a\FW_%%i.*" "%%a\FW\"
  7. )
  8. )
复制代码

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

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

回复 1# Haro


    已修正。 在三楼。

这个会判断是文件夹才工作。
  1. for ($i=1;$i -le 2000;$i++){
  2. if ([System.Io.Directory]::Exists($i)) {
  3. Foreach($folder in ("FW","QLR","QT","DA")) {
  4. New-Item ".\$i\$folder" -type Directory -force
  5. }
  6. (Gci ".\$i")|?{$_ -match "FW_[1-4]\.(jpg|png|gif|tiff|bmp)"}|Move-Item -Dest ".\$i\FW\" -force
  7. }
  8. }
  9. 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://bathome.net./) Powered by Discuz! 7.2