'---先下载ftp服务器上的日期文件----------
If ftp.Download("\Update\Update.Txt",Path & "\Update.Txt") = True AndAlso ftp.Download("\Update\Upinfo.Txt",Path & "\Upinfo.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 '如果服务器程序发布日期大于客户端发布日期(大升级)
Forms("系统升级提示").Open()
If CanSave = True Then '如果用户选择升级,选择不升级时必须将此变量置为false
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 '重新启动(大版本升级不能用这句,必须重新手动打开)
Return '大版本升级完成后必须先中止后面的代码,否则会出错
End If
Else
MessageBox.Show("由于网络原因下载升级文件失败,请稍后再试!")
End If
End If
.......
end if
是不是这次更新改变的升级方式了? 为什么每次大版本升级总会经常变动,
这次有个不同的是安装回709版本了可以打死721修改过的项目文件了,所以安装回709版本发布更新后又可以正常升级了
谢谢!
加好友 
发短信
Post By：2019/7/23 16:43:00 [只看该作者]
此主题相关图片如下：升级.jpg