Const OverWriteFiles = True
Private Sub Form_Activate()
Set objFSO = CreateObject(“scripting.FileSystemObject”)
objFSO.CopyFolder “e:\a”, “e:\b”, OverWriteFiles
End Sub

转载请保留链接：https://ilovetile.sijie.wang/43/ 感谢您对版权的尊重