把A电脑上C:\ABC下的所有文件复制到B电脑的C:\ABC

Question

如何写一个程序他即可以运行在A上,也可以运行在B上
把A电脑上C:\ABC下的所有文件复制到B电脑的C:\ABC

Answer 1

'引用Microsoft Scripting Runtime
Option Explicit
Dim wjfilesys As FileSystemObjectPrivate Sub Command1_Click()
'在A机器上执行
Dim ShareName As String
ShareName = InputBox("请输入另一台机器名", "设置")
wjfilesys.CopyFolder "c:\ABC", "\\" & ShareName & "\共享目录名", True
End SubPrivate Sub Form_Load()
   Set wjfilesys = CreateObject("Scripting.FileSystemObject")
End Sub

Answer 2

来晚了，同楼上使用FSO，更多看帮助

Answer 3

FSO:FileSystemObject
简单又方便