如何用VBA复制整个文件夹包括子目录？

Sub copyFiles(Path As String, afterPath)

'Path：原文件夹滑旦枝路径；afterPath：目标文件夹路径

Dim Spath As String

Set fs = CreateObject("Scripting.FileSystemObject")

Spath = Dir(Path, vbDirectory)

Do While Len(Spath)

If Spath <>"."迟掘 And Spath <>".." Then

fs.CopyFolder Path, afterPath

Spath = Dir()

End If

Loop

End Sub

———————信敏—————————

版权声明：本文为CSDN博主「前端小菜鸟007」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

原文链接：https://blog.csdn.net/weixin_41844140/article/details/103188537

方法一：FileCopy可在VBA中直接引用，单个纤咐文件的copy。语法：FileCopy源文件名,目标文件名注：如果想要对一个已打开的文件使用FileCopy语句，则会燃饥产生错误。示例：FileCopy当前路径,目标路毁段纯径方法二：CopyFile需调用FileSystemObjec

---