- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 0721新版本ftp升级不成功了? (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=138138)
-- 发布时间：2019/7/23 16:43:00
-- 0721新版本ftp升级不成功了?
此主题相关图片如下：升级.jpg
更新到721版后,升级就不成功了,也没出错,感觉下载完成后就没有任何反应了,重新打开项目还是未升级
升级代码如下:
\'---先下载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版本发布更新后又可以正常升级了
谢谢!
-- 发布时间：2019/7/24 12:03:00
--
有点蓝老师,1楼的问题有什么办法,原来每个大版本升级都没有问题,包括从0618到0709都可以
现在只能退回到709的版本使用,721的发布后升级就不成功
-- 发布时间：2019/7/24 14:32:00
--
我使用内置的升级功能测试从709的版本到721没有发现问题，ftp下载也正常。
做个例子发上来看看