我在程序启动的时候写的代码：
Private Sub Form_Load()
If gUserName <> "Guest" Then
s1 = "" & App.Path & "\a.exe"
s2 = "\\192.168.0.70\a\a.exe"
s3 = FileDateTime(s1)
s4 = FileDateTime(s2)
If s1 < s2 Then
a = "\\192.168.0.70\a\Update1.exe"
b = "" & App.Path & "\Update1.exe"
CopyFile a, b, False
If MsgBox("有新软件", vbExclamation + vbOKCancel, "是否安装") = vbOK Then
Shell ("" & App.Path & "\Update1.exe")
End
End If
End If
End If
End Sub

Update1的代码：
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
Private Sub Form_Load()
If Dir("\\192.168.0.70\a\a.exe") <> "" Then
t1 = "" & App.Path & "\a.exe"
t2 = "\\192.168.0.70\a\a.exe"
t3 = FileDateTime(t1)
t4 = FileDateTime(t2)
If t1 < t2 Then
a = "\\192.168.0.70\a\a.exe"
b = "" & App.Path & "\a.exe"
CopyFile a, b, False
MsgBox "更新成功"
Shell (b)
End If
End If
Unload Me
End
End Sub

问题1：\\192.168.0.70\a\下的a.exe和目录下的a.exe是同样的，但是每次启动程序的时候，他还是会提示有新软件；
问题2：安装后提示内存不能为：read

代码不完整。没看清楚。这种方法不科学。因为日期因为copy会改变。
应当设置一个更新的文件。里面写上版本号，与现在的版本号比较。如果不一致则调用update程序，关闭该程序不是用close,用end.copy入当地，作为临时文件，然后覆盖。其中update应当有延时设置，机器速度慢内存没来的几清理可能会造成错误。update完成后，在调用原来的exe.然后彻底关掉该exe.
不过正规的比这个要严格的多，这样只是做演示用还行。
正常我认为应当设置内存驻留程序。