以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  强制更新代码下载和解压路径出错  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=48514)

--  作者:linshibin
--  发布时间:2014/3/31 8:51:00
--  强制更新代码下载和解压路径出错

项目发布后,由于无法做跨版本升级,就找了论坛里面一个高手的解决方案

代码如下:

network.DownloadFile(updatepath & "/update.zip",projectpath &"update.zip" ,"","",True,60000,True)

Dim zip As New zipFile

zip.Open( projectpath & "update.zip")

zip.Extractall(projectpath )

zip.Close()

messagebox.show("更新完成")

 

但是下载和解压的时候都是在Project下

如何让他解压和下载在程序根目录,解压完成后自动重启程序呢?

<!--EndFragment-->

[此贴子已经被作者于2014-3-31 8:52:51编辑过]

--  作者:Bin
--  发布时间:2014/3/31 9:06:00
--  


Dim s As String = projectpath.Substring(0,projectpath.LastIndexOf("\\")+1)
MessageBox.show(s)

--  作者:linshibin
--  发布时间:2014/3/31 9:14:00
--  
那有一个问题,我还在打开 项目文件.exe 这样解压替换是否会出错?
--  作者:Bin
--  发布时间:2014/3/31 9:19:00
--  
肯定会.
--  作者:Bin
--  发布时间:2014/3/31 9:19:00
--  
你参考论坛的夸版本升级例子即可呀.
--  作者:linshibin
--  发布时间:2014/3/31 9:23:00
--  

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=48423&replyID=&skin=1

 

这是我修改之后的,但是升级一直失败,有尝试过啊


--  作者:Bin
--  发布时间:2014/3/31 9:34:00
--  
有例子,自己参考琢磨一下.http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=40763