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

Rank: 12Rank: 12Rank: 12

帖子
14790 
积分
45966 
技术
847  
捐助
745  
注册时间
2008-6-9 
16楼 跳转到 »
发表于 2021-8-26 18:00 | 只看该作者
回复 1# engene 
  1. @echo off

  2. setlocal enabledelayedexpansion

  3. set "SrcFolder=C:\Users\eee\Desktop\1"

  4. set "DstFolder=D:\1"

  5. cd /d "%~dp0"

  6. copy /y "%SrcFolder%\*.*" "!DstFolder!\"

  7. for /f "delims=" %%i in ('dir /b /s /ad "%SrcFolder%"') do (

  8.     set "NewFolder=%%i"

  9.     set "NewFolder=%DstFolder%!NewFolder:%SrcFolder%=!"

  10.     if not exist "!NewFolder!" (

  11.         md "!NewFolder!"

  12.     )

  13.     copy /y "%%i\*.*" "!NewFolder!\"

  14. )
复制代码
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

qixiaobin0715

Rank: 7Rank: 7Rank: 7

帖子
2594 
积分
3775 
技术
383  
捐助
0  
注册时间
2016-2-20 
17楼
发表于 2021-8-26 20:30 | 只看该作者
回复 15# engene
已修改。
尽量不要把批处理代码文件放在要处理的文件夹中。如果还不行，可以试试Bather的代码。

TOP

newswan

Rank: 5Rank: 5

帖子
931 
积分
1279 
技术
92  
捐助
0  
注册时间
2010-6-20 
18楼
发表于 2021-8-26 21:04 | 只看该作者
可以用 powershell vbs 之类的吗

TOP

engene

Rank: 1

帖子
11 
积分
23 
技术
0  
捐助
0  
注册时间
2021-8-26 
19楼
发表于 2021-8-27 14:34 | 只看该作者
回复 16# Batcher

本人平生最羡慕能写代码的人，对于这种慷慨帮助别人的人，我更是羡慕，请让我叫你一声，大神，大神，大神，崇拜你。
完美运行，超级厉害，跪谢，跪谢。。。

TOP

engene

Rank: 1

帖子
11 
积分
23 
技术
0  
捐助
0  
注册时间
2021-8-26 
20楼
发表于 2021-8-27 14:39 | 只看该作者
回复 17# qixiaobin0715


  超级厉害，修改后的完美了，原文件夹也不会生产str文件了，也能把根目录下的文件一块复制过去了，崇拜ing......

感谢大神帮忙，感谢，跪拜。。。

TOP

12
返回列表