我想用VBA将F盘的一个名为“备份”的文件夹复制到桌面路径"C:\Users\Administrator\Desktop"下，这个文件夹里还有两个子文件夹，我用CopyFolder只能把“备份”文件夹及其根目录下的文件复制到桌面，子文件夹及里面的文件没有被复制，求举例说明
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追问
'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追问
这样不得，子文件夹倒是有了，外面的"备份"文件夹没了
追答你目标路径是不是写的C:\Users\Administrator\Desktop，可以改成C:\Users\Administrator\Desktop\备份
温馨提示：答案为网友推荐，仅供参考
