- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求助：发布后程序的远程自动更新两个问题 1、自定义更新路劲及方式 2 如何判断更新地址下是否有升级文件，若无不提示错误，提示当前不用升级。若有升级文件，则延续原来的升级方式进行升级！ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=62328)
-- 发布时间：2014/12/29 23:46:00
-- 求助：发布后程序的远程自动更新两个问题 1、自定义更新路劲及方式 2 如何判断更新地址下是否有升级文件，若无不提示错误，提示当前不用升级。若有升级文件，则延续原来的升级方式进行升级！
求助：发布后程序的远程自动更新两个问题 1、自定义更新路劲及方式 2 如何判断更新地址下是否有升级文件，若无不提示错误，提示当前不用升级。若有升级文件，则延续原来的升级方式进行升级！
问题1：
发布后程序的远程自动更新
如何更改升级路劲地址 及定义升级方式
日期型变量，返回在项目属性中设置的项目发布日期。
字符型，用于设置或返回在线升级路径，有了这个变量，我们可以动态设置升级路径。
逻辑型，是否通过互联网升级。
上面三个参数怎么对应写呢？
求参考代码写法！
问题2：
update.txt
update1.zip
update2.zip
对于生成的升级包 如何判断当服务器上没有update.txt时候 不出现如下错误
假设服务器地址为 http://www.gzqykj.com/update
此主题相关图片如下：filehelper_1419867569031_23.jpg
问题2 已经初步找到下列方法 继续求解
If FileSys.FileExists("http://www.gzsqykj.com/waxjcy/update.txt") Then
‘Messagebox.Show("文件已经存在!","提示")
Else
’Messagebox.Show("文件不存在或已经被删除!","提示")
End If
[此贴子已经被作者于2014-12-30 0:06:53编辑过]
-- 发布时间：2014/12/30 8:02:00
--
这个只能判断本地文件,无法判断网络文件的.
考虑用这个http://www.foxtable.com/help/topics/1402.htm 配合Try Catch
-- 发布时间：2014/12/30 8:38:00
-- 回复：（Bin）这个只能判断本地文件,无法判断网络文件...
BIN老师 经过测试 初步可以避免楼上报错图，只需要进行检测是否有，如果有就进行升级，如果没有就提示不用升级
问题1继续求助！恳请各位老师多多指导！谢谢
-- 发布时间：2014/12/30 8:44:00
--
利用FileExists 判断一下是否有下载到文件
-- 发布时间：2014/12/30 9:08:00
-- 回复：（Bin）利用FileExists 判断一下是否有下载到文...
问题1：
发布后程序的远程自动更新
如何更改升级路劲地址 及定义升级方式
日期型变量，返回在项目属性中设置的项目发布日期。
字符型，用于设置或返回在线升级路径，有了这个变量，我们可以动态设置升级路径。
逻辑型，是否通过互联网升级。
上面三个参数怎么对应写呢？
求参考代码写法！
-- 发布时间：2014/12/30 9:16:00
--
直接写啊
UpdatePath = "http://baidu.com"
RemoteUpdate = True
-- 发布时间：2014/12/30 9:22:00
-- 回复：（有点甜）直接写啊 UpdatePath = "ht...
在帮助里我找不到这个代码应该写在什么问题
还希望有点甜老师指导指导下 谢谢！
-- 发布时间：2014/12/30 9:25:00
--
写在升级代码之前, 也可以在项目属性里设置
-- 发布时间：2014/12/30 9:30:00
-- 回复：（Bin）写在升级代码之前, 也可以在项目属性里设...
If Syscmd.Project.Update(False,False) = False Then \'如果没有升级
Forms("窗口1").open()
End
If
bin老师写在这个代码之前么？
-- 发布时间：2014/12/30 9:31:00
--
是啊。