专家坐堂-请问打开项目时，如何编写代码判断是否是最新版本？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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