1,067
社区成员
![](https://csdnimg.cn/release/cmsfe/public/img/topic.427195d5.png)
![](https://csdnimg.cn/release/cmsfe/public/img/me.40a70ab0.png)
![](https://csdnimg.cn/release/cmsfe/public/img/task.87b52881.png)
![](https://csdnimg.cn/release/cmsfe/public/img/share-circle.3e0b7822.png)
Option Explicit
Private Sub Command1_Click()
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFolder "D:\icon", "e:\txt\cjl" '拷贝c:\txt下所有文件到d:\txt\cjl
End Sub
FSO.CopyFoder "c:\txt","d:\txt\cjl"'拷贝c:\txt下所有文件到d:\txt\cjl
dim FSO as object
Set FSO=CreateObject("Script.FileSystemObject")
FSO.CopyFoder c:\txt,d:\txt\cjl'拷贝c:\txt下所有文件到d:\txt\cjl