Foxtable(狐表)用户栏目专家坐堂 → 强制更新代码下载和解压路径出错


  共有2520人关注过本帖树形打印复制链接

主题:强制更新代码下载和解压路径出错

帅哥哟,离线,有人找我吗?
linshibin
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:150 积分:1619 威望:0 精华:0 注册:2012/2/10 9:26:00
强制更新代码下载和解压路径出错  发帖心情 Post By: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
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/3/31 9:06:00 [只看该作者]



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

 回到顶部
帅哥哟,离线,有人找我吗?
linshibin
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:150 积分:1619 威望:0 精华:0 注册:2012/2/10 9:26:00
  发帖心情 Post By:2014/3/31 9:14:00 [只看该作者]

那有一个问题,我还在打开 项目文件.exe 这样解压替换是否会出错?

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/3/31 9:19:00 [只看该作者]

肯定会.

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/3/31 9:19:00 [只看该作者]

你参考论坛的夸版本升级例子即可呀.

 回到顶部
帅哥哟,离线,有人找我吗?
linshibin
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:150 积分:1619 威望:0 精华:0 注册:2012/2/10 9:26:00
  发帖心情 Post By:2014/3/31 9:23:00 [只看该作者]

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

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/3/31 9:34:00 [只看该作者]


 回到顶部