批处理之家 - Powered by Discuz! Board

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

作者: 逆流而上的熊猫 时间: 2015-8-1 01:53 标题: [已解决]vbs如何复制指定文件夹里的所有文件到其他多个不同的文件夹？

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

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

作者: pcl_test 时间: 2015-8-1 09:17

本版规则
1、求助时，务必在顶楼一次性把问题交代清楚，建议给出完整有针对性的样本，样本过大可发网盘分享链接。勿发无意义的标题
2、使用 code 标记把代码部分括起来（单击回复框的 <> 按钮，复制粘贴代码进去），以便复制。问题解决后，请编辑顶楼帖子在标题前面注明[已解决]

作者: pcl_test 时间: 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
)
pause
复制代码

作者: pcl_test 时间: 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 "完成"
复制代码

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