以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  手动升级问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=135119)
--  作者：刘林
--  发布时间：2019/5/17 12:01:00
--  手动升级问题

老师：一直有个升级问题，做了些测试，使终有的电脑有时不能自动升级，我想系统是默认安在指定文件夹的，我就按下面这样做了测试，但在项目里测试可以，能提示更新完成，关闭，并能升级成功，但发布安装好的程序就不行，现象是有下载进度等，但之后就没有反映，也没有更新成功。这怎么原因？

Dim ftp1 As New FtpClient
ftp1.Host=
ftp1.Account =
ftp1.Password =
        If ftp1.Download("\\shengji\\update2.zip", "d:\\update2.zip",True) = True Then
            Dim zip As New ZipFile
            zip.Open("d:\\update2.zip")
            \' zip.Extractall(ProjectPath )
            zip.Extractall("d:\\教务系统\\" )
            zip.Close()
            MessageBox.Show("更新完成,重新运行")
            Syscmd.Project.Exit()
        End If
--  作者：有点甜
--  发布时间：2019/5/17 12:15:00
--  

 

单独执行 Download，看能否正常下载文件成功。不能下载的时候，是否有弹出防火墙询问是否允许访问公网的提示窗口？

 

 

 

 
--  作者：刘林
--  发布时间：2019/5/21 17:32:00
--  
可以下载，现在的问题的在项目里执行是可以，但发布后的程序运行就不行，是在同一电脑上测试的，请老师帮改一个手动升级的，在论坛里找的那个也不行。谢谢
--  作者：有点甜
--  发布时间：2019/5/21 17:48:00
--  

1、发布后不要打包成安装包。直接测试publish文件夹的exe程序。

 

2、不能下载升级的程序，发上来测试。