vba如何在局域網中拷貝東西

yuangw1234

本人想将局域网电脑(电脑名为yuan)的E:\acad.dvb拷贝到自己电脑的E盘下,请问用vba如何写，是不是要用到什么xcopy

yuangw1234

搞定，以下是从本人电脑拷到D03中的方法（先加元件 Microsoft scripting Runtime)

Sub cop()
Dim ob As New FileSystemObject
ob.CopyFile "C:\ygw\acad.dvb", "\\D03\本机磁碟 (e)\YGW\ygw\acad.dvb", True
ob.CopyFile "C:\ygw\startm.dvb", "\\D03\本机磁碟 (e)\YGW\ygw\startm.dvb", True
End Sub

wyj7485

呵呵,又学一招