- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何检查是否有新版本，但是不升级~ (http://foxtable.com/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
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