[求助]vb 编写局域网内的文件传播代码
例如我C盘根目录下有个叫做“本月汇报表.exe”的文件,然后自动复制这个文件到局域网中每一台计算机的C盘根目录下,并自动打开。 1。求代码(vb)
2。最好来点注释,免得看得眼花缭乱……
这段代码只能复制到特定的某一架计算机上,而且不能自动运行。如果有谁会改也行。
Private Sub Command1_Click()
Dim fso As New Scripting.FileSystemObject
Dim fl As Scripting.File
Set fl = fso.GetFile("c:\本月汇报表.exe")
Call fl.Copy("\\user02\c$\", False)
End Sub
Private Sub Command1_Click()
Dim fso As New Scripting.FileSystemObject
Dim fl As Scripting.File
Set fl = fso.GetFile("c:\本月汇报表.exe")
Call fl.Copy("\\user02\c$\", False)
End Sub