- 博客(0)
- 资源 (3)
- 收藏
- 关注
VB 自动更新程序(局域网)(exe文件)
用法:
Public Const AppName As String = "程序名"
Public Const CopyExe As String = "FastCopy"
Public Sub ExeRefresh()
'Dim LocalAppNamePath As String
Dim LocalAppNameDate As String
Dim LocalCopyNameDate As String
Dim NetAppNameDate As String
On Error Resume Next
If Len(App.Path) > 3 Then
' LocalAppNamePath = App.Path & "\" & AppName & ".exe"
LocalAppNameDate = FileDateTime(App.Path & "\" & AppName & ".exe")
LocalCopyNameDate = FileDateTime(App.Path & "\" & CopyExe & ".exe")
Else
' LocalAppNamePath = App.Path & "\" & AppName & ".exe"
LocalAppNameDate = FileDateTime(App.Path & AppName & ".exe")
LocalCopyNameDate = FileDateTime(App.Path & CopyExe & ".exe")
End If
NetAppNameDate = FileDateTime(UpdateExePath & AppName & ".exe")
If LocalAppNameDate = "" Or NetAppNameDate = "" Then Exit Sub
If CDate(LocalAppNameDate) < CDate(NetAppNameDate) Then
FileCopy UpdateExePath & CopyExe & ".exe", App.Path & "\" & CopyExe & ".exe"
LocalAppNameDate = Shell(App.Path & "\" & CopyExe & ".exe" + " " + UpdateExePath + "," + AppName + ".exe", vbNormalFocus)
End
End If
End Sub
2009-09-02
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人