Foxtable(狐表)用户栏目专家坐堂 → 请问打开项目时,如何编写代码判断是否是最新版本?


  共有3037人关注过本帖树形打印复制链接

主题:请问打开项目时,如何编写代码判断是否是最新版本?

帅哥哟,离线,有人找我吗?
czy66ds
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1691 积分:16460 威望:0 精华:0 注册:2013/7/31 13:03:00
请问打开项目时,如何编写代码判断是否是最新版本?  发帖心情 Post By:2019/7/18 16:19:00 [只看该作者]

请问打开项目时,如何编写代码判断是否是最新版本?

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110788 积分:563872 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/7/18 16:43:00 [只看该作者]

下载update.txt判断,如

try
    Network.DownloadFile("http://www.foxtable.com/download/update.txt", "d:\update.txt" ,"" ,"" ,False, 100000, True)
    Dim ud() As String = FileSys.ReadAllText("d:\update.txt").Split("|")
    Dim Sdate1 As Date = Cdate(ud(0)) '服务器update.txt发布日期
    Dim Sdate2 As Date = Cdate(ud(1)) '服务器Version.txt发布日期
    Dim Cdate1 As Date = "2016-03-10"  'update.txt 的第一个日期,写死
    Dim Cdate2 As Date = "2016-03-20"  'update.txt 的第二个日期,写死,对应,否则会重复更新
    
    If Sdate2 > Cdate2 Then '如果服务器程序发布日期大于客户端发布日期(大升级)
        Syscmd.Project.Update
    ElseIf Sdate1 > Cdate1 Then '如果服务器版本发布日期大于客户端发布日期(小升级)
        Syscmd.Project.Update
    End If
catch ex As exception
    msgbox("下载失败")
End try

 回到顶部