| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 强制更新代码下载和解压路径出错 (http://www.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 |