以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=84818)
--  作者：yang1972
--  发布时间：2016/5/11 12:10:00
--  [求助]
怎么设置 只有最新版本的项目文件才可以登录项目，项目数据库为SQL，老版本的提醒必须升级后才可以使用
--  作者：大红袍
--  发布时间：2016/5/11 12:27:00
--  

 取得当前的版本号，对比最新的版本号

 

Network.DownloadFile("http://www.foxtable.com/download/80211/update.txt", "d:\\update.txt" ,"" ,"" ,False, 100000, True)
Dim ary() As String = FileSys.ReadAllText("d:\\update.txt").Split("|")

msgbox(ary(0))
msgbox(PublishDate)

If PublishDate < ary(0) Then
    msgbox("不是最新版")
End If