以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于在线升级问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=26680)
--  作者：xiaoqiwei
--  发布时间：2012/12/11 18:22:00
--  关于在线升级问题
请问狐爸：在线升级路径可否用代码动态指定呢？
--  作者：狐狸爸爸
--  发布时间：2012/12/12 8:50:00
--  
和远程升级相关的系统变量
  • PublishDate
    日期型变量，返回在项目属性中设置的项目发布日期。
    　
  • UpdatePath
    字符型，用于设置或返回在线升级路径，有了这个变量，我们可以动态设置升级路径。
    　
  • RemoteUpdate
    逻辑型，是否通过互联网升级。

PublishDate只读，其他两个可读写。
--  作者：xiaoqiwei
--  发布时间：2012/12/12 10:40:00
--  
谢谢狐爸，非常有用
--  作者：xiaoqiwei
--  发布时间：2012/12/14 14:45:00
--  
再请问狐爸：如果在线升级路径所在的电脑设置了登录账号和密码，请问如何设定连接的账号和密码?
--  作者：lin_hailun
--  发布时间：2012/12/14 14:56:00
--  
 自己弄一个自动下载安装吧，几句代码的事情。

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

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