具体程序实现如下:
在应用程序工程MyApp中的部分代码如下:
OptionExplicit
编译后的应用程序名称,注意没有后缀.EXE,本例为MYAPP
PrivateConstApp_Name="MyApp"
最新的应用程序存放的路径,本例为：服务器NtServer01共享目录Refresh
PrivateConstExePath="\\NtServer01\Refresh\"
中介程序名称,注意没有后缀.EXE,本例为FastCopy
PrivateConstMidExeName="FastCopy"

应用程序入口
PrivateSubForm_Load()
IfUCase(Trim(App.EXEName))<>UCase(Trim(App_Name))Then
MsgBox"必须将订单管理系统的名称更改为:" App_Name
End
EndIf
判断是否有最新版本的应用程序,如有则自动更新
CallExeRefresh

下面为订单管理系统的正常操作略.......
EndSub

版本检查及更新过程
PrivateSubExeRefresh()
定义四个临时字符串变量
Dims1AsString
Dims2AsString
Dims3AsString
Dims4AsString
OnErrorResumeNext
将本地应用程序MyApp.EXE的全路径名存入s1
将本地中介程序FastCopy.exe的全路径名存入s3
s1="TNT"
IfLen(App.Path)>3Then
s1=App.Path "\" Trim(App_Name) ".exe"
s3=App.Path "\" MidExeName ".EXE"
Else
s1=App.Path Trim(App_Name) ".exe"
s3=App.Path MidExeName ".EXE"
EndIf

s4="TNT"
将本地应用程序MyApp.EXE文件的修改时间存入s4
s4=FileDateTime(s1)
s2="TNT"
将网络上应用程序MyApp.EXE文件的修改时间存入s2
s2=FileDateTime(ExePath App_Name ".EXE")
Ifs2="TNT"Then
MsgBox"没有找到最新的可执行文件:" ExePath App_Name ".EXE"_
vbCrLf vbCrLf "原因1:存放最新EXE的服务器或者工作站没有打开;"_
vbCrLf "原因2:存放最新EXE的路径错误或者EXE文件不存在;"_
vbCrLf "请将此情况通知程序员." vbCrLf vbCrLf_
vbCrLf "按确定按钮后,将继续运行本地EXE文件.",vbCritical,"提示"
EndIf
Ifs2="TNT"Ors4="TNT"ThenExitSub
如果网络上应用程序MyApp.EXE文件的修改时间,大于本地MyApp.EXE文件的修改时间
然后再运行本地MyApp.EXE,中介程序退出后,整个更新过程结束.
IfCDate(s2)>CDate(s4)Then
将网络上的中介程序FastCopy.exe复制到本地,这样可防止本地无中介程序时无法进行更新
FileCopyExePath MidExeName ".EXE",s3
则运行中介程序FastCopy.exe,将最新的MyApp.EXE复制到本地
s1=Shell(s3 "" ExePath "," App_Name ".EXE",vbNormalFocus)
本地应用程序MyApp.EXE终止运行,否则已经更新的MyApp.EXE无法覆盖本地的MyApp.EXE.
End
EndIf
EndSub
将以上程序编译为:MyApp.exe存储在共享目录中.

在中介程序工程FastCopy中的代码如下:
向工程中增加一个窗体Form1,向Form1中添加一个定时器Timer1,增加一个标签控件Label1,其Caption为"应用程序正在更新",并调整窗体大小.
OptionExplicit
PrivatesPathAsString用于存储服务器上的共享目录
PrivatesNameAsString用于存储应用程序名
PrivateSubForm_Load()
DimsAsString
从应用程序的命令行参数中取得数据
s=Trim(Command())
DimpAsInteger
p=InStr(1,s,",")
Ifp>0Then
取得储服务器上的共享目录
sPath=Mid(s,1,p-1)
取得应用程序名
sName=Mid(s,p 1,Len(s)-p)
定时器延时6秒,保证本地旧版应用程序退出运行
Timer1.Interval=6000
Else
参数错误则退出
MsgBox"Error",vbCritical,""
UnloadMe
End
EndIf
EndSub

定时器代码
PrivateSubTimer1_Timer()
Timer1.Interval=0
Dims1AsString
取得应用程序的本地路径
IfLen(App.Path)>3Then
s1=App.Path "\" sName
Else
s1=App.Path sName
EndIf
保证服务器关机或者路径错误仍可运行旧版本
OnErrorResumeNext
将服务器共享目录中的最新版本复制到本地
FileCopysPath sName,s1
DimaAsLong
执行本地的应用程序
a=Shell(s1,vbNormalFocus)
中介程序退出运行,应用程序自动更新结束
UnloadForm1
End
EndSub
将工程FastCopy编译为FastCopy.exe并存储于服务器的共享目录。

测试:
1、将服务器共享目录中的：MyApp.exe复制到本地硬盘的某个目录中；
2、重新编译MyApp工程，将MyApp.exe复制到服务器的共享目录中，注意一定不要覆盖本地的MyExe.app;
3、这样服务器上MyApp.exe的修改时间肯定大于本地MyApp.exe的修改时间;
4、运行本地MyApp.exe,几秒钟后屏幕上会出现"应用程序正在更新"的窗体，随后更新后应用程序再次被运行。则自动更新成功。
5、程序的修改时间可通过在文件上用鼠标按右键的属性或内容的菜单观察。
本程序在Windows98和VB6.0,NT局域网络下测试通过。
本文内容也适用于其它语言参考。->