Private Sub CommandButton1_Click()
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFolder "d:\a", "e:\"春简
Set fso = Nothing
End Sub
欢迎分享,转载请注明来源:内存溢出
Private Sub CommandButton1_Click()
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFolder "d:\a", "e:\"春简
Set fso = Nothing
End Sub
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)