VB本身没有直接一步到位的解决方法，但可以通过遍历文件夹进行逐个复制，或者利用FSO对象可以一次性实现（推荐此法）：Dim fso As ObjectSet fso = CreateObject("Scripting.FileSystemObject")fso.CopyFolder "源文件夹", "目标文件夹"Set fso = Nothing
