以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  远程自动升级前先备份数据，如何判断是否有升级，先导出数据再升级  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=109313)
--  作者：fuucc
--  发布时间：2017/11/9 11:23:00
--  远程自动升级前先备份数据，如何判断是否有升级，先导出数据再升级
If Syscmd.Project.Update(False,False) = False Then \'如果没有升级
    \'原AfterOpenProject事件代码
else
Dim btn As WinForm.Button = Forms("下载窗口").Controls("Button7")
            btn.PerformClick()
Dim btnb As WinForm.Button = Forms("添加学生资助").Controls("Button8")
            btnb.PerformClick()

End If
看文档，这样写不是很规范，可能错误，有什么不错误的办法吗
--  作者：有点甜
--  发布时间：2017/11/9 12:42:00
--  

下载update.txt检测对比一下日期即可

 

try
    Network.DownloadFile("http://www.foxtable.com/download/update.txt", "d:\\update.txt" ,"" ,"" ,False, 100000, True) \'下载update.txt文件
    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 = PublishDate \'客户端发布日期
    Dim Cdate2 As Date = FileSys.ReadAllText(ProjectPath & "\\Bin\\Version.txt") \'客户端Version.txt发布日期
   
    If Sdate2 > Cdate2 OrElse Sdate1 > Cdate1 Then
        msgbox("有新版本")
       
        \'静默升级代码 Syscmd.Project.Update(False,False)
    End If
catch ex As exception
    msgbox(ex.message)
    msgbox("下载失败")
End try