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