'---先下载ftp服务器上的日期文件----------
If ftp.Download("\Update\Update.Txt",Path & "\Update.Txt") = True Then '如果下载升级日期文件成功
Dim ud() As String = FileSys.ReadAllText(Path & "\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 '如果服务器程序发布日期大于客户端发布日期(大升级)
If MessageBox.Show("发现新的版本更新,发布日期:" & Sdate2 & ",是否升级?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
If ftp.Download("\Update\Update2.Zip",Path & "\Update2.Zip",True) = True Then '如果下载程序文件成功
UpdatePath = Path
RemoteUpdate = False
If Syscmd.Project.Update(False,False) = True Then
Application.restart '重新启动
End If
Else
MessageBox.Show("由于网络原因下载升级文件失败,请稍后再试!")
End If
End If
ElseIf Sdate1 > Cdate1 Then '如果服务器程序发布日期大于客户端发布日期(小升级)
If MessageBox.Show("发现新的更新,发布日期:" & Sdate1 & ",是否升级?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
If ftp.Download("\Update\Update1.Zip",Path & "\Update1.Zip",True) = True Then '如果下载程序文件成功
UpdatePath = Path
RemoteUpdate = False
If Syscmd.Project.Update(False,False) = True Then
Application.restart '重新启动
End If
Else
MessageBox.Show("ftp下载升级文件失败,请稍后再试!")
End If
End If
End If
End If
还不知道明天其他客户端升级会不会有其他问题.
加好友 
发短信
Post By：2017/10/17 21:03:00 [只看该作者]
此主题相关图片如下：升级问题.jpg