vb检测更新文件

‘更新代码，记录一下

Private Sub Form_Load()

Dim 自身版本号 As String

'定义主机地址

        Const 文件地址 As String = "\\192.168.0.160\temp\SOFT\JX_QCSys.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 "发现新版本，请点击更新"

             CreateObject("scripting.filesystemobject").CopyFolder "\\192.168.0.160\temp\SOFT", App.Path + "\SOFT"  '粘贴替换升级             

             Unload Me '关闭窗口            

             Shell "explorer.exe """ & strPathName & """", vbNormalFocus '打开程序

        End If

End Sub

参考：https://cloud.tencent.com/developer/article/1468370