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

Rank: 1

帖子
26 
积分
48 
技术
0  
捐助
0  
注册时间
2014-8-20 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2015-8-1 01:53 | 只看该作者

[问题求助] [已解决]vbs如何复制指定文件夹里的所有文件到其他多个不同的文件夹？

本帖最后由 pcl_test 于 2016-7-22 10:49 编辑

求助，复制e盘A文件夹下是所有文件到 D盘里的 文件夹下（文件夹名字是1到18 这样的数字），怎么写这个vbs
收藏 分享

pcl_test

Rank: 8Rank: 8

帖子
3041 
积分
5333 
技术
685  
捐助
0  
注册时间
2014-10-19 
2楼
发表于 2015-8-1 09:17 | 只看该作者
本版规则
1、求助时，务必在顶楼一次性把问题交代清楚，建议给出完整有针对性的样本，样本过大可发网盘分享链接。勿发无意义的标题
2、使用 code 标记把代码部分括起来（单击回复框的 <> 按钮，复制粘贴代码进去），以便复制。问题解决后，请编辑顶楼帖子在标题前面注明[已解决]

TOP

pcl_test

Rank: 8Rank: 8

帖子
3041 
积分
5333 
技术
685  
捐助
0  
注册时间
2014-10-19 
3楼
发表于 2015-8-1 10:22 | 只看该作者
本帖最后由 pcl_test 于 2015-8-1 10:37 编辑

E盘A文件夹里的所有文件复制到D盘1到18文件夹？？
  1. @echo off

  2. for /l %%a in (1 1 18) do (

  3.     if not exist "D:\%%a\" md "D:\%%a\"

  4.     xcopy "E:\A\*" "D:\%%a\" /s /y

  5. )

  6. pause
复制代码

TOP

pcl_test

Rank: 8Rank: 8

帖子
3041 
积分
5333 
技术
685  
捐助
0  
注册时间
2014-10-19 
4楼
发表于 2015-8-1 10:36 | 只看该作者
本帖最后由 pcl_test 于 2015-8-1 10:58 编辑 
  1. Dim fso:Set fso = CreateObject("Scripting.FileSystemObject")

  2. For i=1 to 18

  3. If fso.folderExists("D:\"&i&"\")<>True Then  fso.CreateFolder "D:\"&i&"\"

  4. fso.CopyFolder "E:\A\*","D:\"&i&"\",True

  5. fso.CopyFile "E:\A\*","D:\"&i&"\",True

  6. Next

  7. Msgbox "完成"
复制代码

TOP

返回列表