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

逆流而上的熊猫

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

pcl_test

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

pcl_test

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

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 "完成"
复制代码