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 = PublishDate \'客户端发布日期
    Dim Cdate2 As Date = FileSys.ReadAllText(ProjectPath & "\\Bin\\Version.txt") \'客户端Version.txt发布日期
   
    If Sdate2 > Cdate2 Then \'如果服务器程序发布日期大于客户端发布日期(大升级)
        \'升级代码
    ElseIf Sdate1 > Cdate1 Then \'如果服务器版本发布日期大于客户端发布日期(小升级)
        \'升级代码
    End If
catch ex As exception
    msgbox("下载失败")
End try