以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何检查是否有新版本,但是不升级~  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=176458)

--  作者:大清河
--  发布时间:2022/4/14 9:20:00
--  如何检查是否有新版本,但是不升级~
如何检查是否有新版本,但是不升级~
--  作者:有点蓝
--  发布时间:2022/4/14 9:34:00
--  
下载升级文件里的update.txt,获取第一个日期和项目里的PublishDate比较即可。如果比PublishDate大就是有新版本。

Network.DownloadFile("http://www.foxtable.com/update/update.txt""c:\\data\\update.txt")
Dim s As string = FileSys.ReadAllText("c:\\data\\update.txt")
dim u as boolean
if cdate(s.split("|")) > PublishDate then
Dim Result As DialogResult
Result = MessageBox.Show(
"是否升级?""提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If
 Result = DialogResult.Yes Then
   u = 
Syscmd.Project.Update(False,False)
End
 if
end if

if u = false then
    Forms("窗口1").open()
    
\'后续其它代码
endif

--  作者:大清河
--  发布时间:2022/4/14 10:21:00
--  
http://www.foxtable.com/update
老师,这个地址可以用ftp地址代替不

--  作者:有点蓝
--  发布时间:2022/4/14 10:21:00
--  
帮助看DownloadFile的用法
--  作者:大清河
--  发布时间:2022/4/14 10:43:00
--  
老师,这是怎么回事呢
图片点击可在新窗口打开查看此主题相关图片如下:错误.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2022/4/14 11:07:00
--  
学会调试

Dim s As string = FileSys.ReadAllText("c:\\data\\update.txt")
msgbox(s)
dim u as boolean
msgbox(s.split("|"))
if cdate(s.split("|")) > PublishDate then