VB6 局域网检测自写EXE版本，及提示更新！

VB6 局域网检测自写EXE版本，及提示更新！

Private Sub Command1_Click()

Dim 自身版本号 As String

'判断局域网主机是否在线，在线则执行

If IPValid("127.0.0.1") = True Then

'定义主机地址

Const 文件地址 As String = "\\127.0.0.1\vb\下载器.exe"

'获取自身版本号

自身版本号= App.Major & "." & App.Minor & ".0" & "." & App.Revision

'定义运程文件版本号

Dim 运程文件版本号 As String

'定义文件系统对象

Dim fso As FileSystemObject

'定义为新文件系统对象

Set fso = New FileSystemObject

'获取远程文件版本号

运程文件版本号 = fso.GetFileVersion(文件地址)

'判断文件版本号是否一样，不一样则提示更新并打开，更新地址！否则退出！

If 自身版本号 = 运程文件版本号 Then

MsgBox "恭喜你！！软件已是最新版本"

Else

MsgBox "发现新版本，请点击更新"

Shell "explorer \\127.0.0.2\vb\", 1

End If

Else

Exit Sub

End If

End Sub