十二行代码搞定自动更新

作者：DragonSchool (龙堂)
'自动更新过程
Sub cyUpdateMyself(ByVal sSourceFile As String)
On Error GoTo Err
Dim sFileName As String

'当前运行的是临时文件
If InStr(1, App.EXEName, ".TMP") > 0 Then
'将临时文件复制为原文件名
FileCopy IIf(right(App.Path, 1) = "/", App.Path, App.Path & "/") & App.EXEName & ".EXE", Replace(IIf(right(App.Path,1) = "/", App.Path, App.Path & "/") & App.EXEName & ".EXE", ".TMP", "")
Else
'当前运行的是原文件，则比较时间看是否需要更新
If FileDateTime(IIf(right(App.Path, 1) = "/", App.Path, App.Path & "/") & App.EXEName & ".EXE") < FileDateTime(sSourceFile) Then
'现文件比较旧，须更新
sFileName = IIf(right(App.Path, 1) = "/", App.Path, App.Path & "/") & App.EXEName & ".TMP.EXE"
'将源文件复制为临时文件名
FileCopy sSourceFile, sFileName
'运行临时文件
ShellExecute 0, vbNullString, _
sFileName, vbNullString, _
vbNullString, SW_NORMAL
'关闭自已（为确保临时文件运行后复制自我成功）
End
Else
'如果文件不比源文件旧则删除可能存在的临时文件
On Error Resume Next
Kill IIf(right(App.Path, 1) = "/", App.Path, App.Path & "/") & App.EXEName & ".TMP.EXE"
End If
End If
Exit Sub
Err:
If Err.Number = 53 Then Exit Sub '设置好的更新文件不存在！
Call MsgBox(Err.Description, vbCritical Or vbSystemModal, "自动更新错误")
End Sub

调用方法：
Sub Main()
'执行自动更新
cyUpdateMyself "//dsbtech/oa$/DbOA.exe" '(源文件)
　......
end sub