返回列表 发帖
逆流而上的熊猫

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

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

TOP

pcl_test

Rank: 8Rank: 8

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

E盘A文件夹里的所有文件复制到D盘1到18文件夹？？
@echo off
for /l %%a in (1 1 18) do (
    if not exist "D:\%%a\" md "D:\%%a\"
    xcopy "E:\A\*" "D:\%%a\" /s /y
)
pauseCOPY

TOP

pcl_test

Rank: 8Rank: 8

帖子
3040 
积分
5332 
技术
685  
捐助
0  
注册时间
2014-10-19 
4楼
发表于 2015-8-1 10:36 | 只看该作者
本帖最后由 pcl_test 于 2015-8-1 10:58 编辑 
Dim fso:Set fso = CreateObject("Scripting.FileSystemObject")
For i=1 to 18
If fso.folderExists("D:\"&i&"\")<>True Then  fso.CreateFolder "D:\"&i&"\"
fso.CopyFolder "E:\A\*","D:\"&i&"\",True
fso.CopyFile "E:\A\*","D:\"&i&"\",True
Next
Msgbox "完成"COPY

TOP

返回列表