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

yuangw1234 · 发表于 2006-9-25 13:56:00

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

yuangw1234 · 发表于 2006-9-26 11:25:00

搞定，以下是从本人电脑拷到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 · 发表于 2006-9-28 11:07:00

呵呵,又学一招

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

发表回复

精选推荐