Foxtable(狐表)用户栏目专家坐堂 → 自动升级版本的路径如何设置


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

主题:自动升级版本的路径如何设置

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


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2012/12/20 18:14:00 [显示全部帖子]

 e:\升级包

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


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2012/12/20 20:52:00 [显示全部帖子]

 把你的这个文件夹共享出去,然后访问就这样:

 \\ip\文件夹名称

 或者

 \\机器名\文件夹名称

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


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2012/12/21 9:47:00 [显示全部帖子]

 自动更新的话只是更新project里的文件。

 你可以自己设置一个更新,参考如下代码:

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("更新完成")


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


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2012/12/21 10:33: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("更新完成")


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


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2012/12/21 11:47:00 [显示全部帖子]

以下是引用jspta在2012-12-21 11:23:00的发言:
如何重新启动foxtable程序,以完成更新那?


Syscmd.Project.Open(projectfile)

http://www.foxtable.com/help/topics/1080.htm

 回到顶部