- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 升级 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=174186)
-- 发布时间：2022/1/5 16:48:00
-- 升级
老师，使用帮助方式升级，升级路径中没有升级文件时会报错，怎么来判断？
If Syscmd.Project.Update(False,False) = False Then \'如果没有升级
Forms("窗口1").open()
\'后续其它代码
End
If
此主题相关图片如下：qq截图20220105164752.jpg
-- 发布时间：2022/1/5 16:58:00
--
判断能不能下载升级文件：http://www.foxtable.com/mobilehelp/topics/0160.htm
-- 发布时间：2022/1/5 17:25:00
--
没明白怎么用这个
Dim hc As New HttpClient("http://***.**.***.0:8080/系统更新/update.txt")
If hc.GetFile(ProjectPath) Then
MessageBox.show("文件下载成功","提示")
Else
MessageBox.show("文件下载失败","提示")
End If
If Syscmd.Project.Update(False,False) = False Then \'如果没有升级,后面+原AfterOpenProject事件代码
Forms("窗口1").open()
\'后续其它代码
End If
-- 发布时间：2022/1/5 17:31:00
--
Dim hc As New HttpClient("http://***.**.***.0:8080/系统更新/update.txt")
If hc.GetFile(ProjectPath) Then
If Syscmd.Project.Update(False,False) Then return
End If
Forms("窗口1").open()
\'后续其它代码
-- 发布时间：2022/1/6 8:51:00
--
报错，还是用ftp判断文件是否存在吧
Dim ftp As New Ftpclient
ftp.host="******"
ftp.Account ="f****"
ftp.password ="1***"
If ftp.FileExists("\\系统更新\\update.txt") Then \'如果存在
If Syscmd.Project.Update(False,False) = False Then \'如果没有升级,后面+原AfterOpenProject事件代码
Forms("窗口1").open()
End If
-- 发布时间：2022/1/6 9:42:00
--
我还以为使用使用http升级，ftp只能是5楼那种方法判断
-- 发布时间：2022/1/6 10:30:00
--
升级是用的http
-- 发布时间：2022/1/6 10:32:00
--
使用HttpClient报什么错？
-- 发布时间：2022/1/17 9:20:00
--
老师，这样判断还有个逻辑问题在哪儿？没有升级包直接跳过了AfterOpenProject事件的代码了呢，登录窗口都不出来了！
报错，还是用ftp判断文件是否存在吧
Dim ftp As New Ftpclient
ftp.host="******"
ftp.Account ="f****"
ftp.password ="1***"
If ftp.FileExists("\\系统更新\\update.txt") Then \'如果存在
If Syscmd.Project.Update(False,False) = False Then \'如果没有升级,后面+原AfterOpenProject事件代码
Forms("窗口1").open()
End If
-- 发布时间：2022/1/17 9:22:00
--
必须要这样写哇？
If ftp.FileExists("\\系统更新\\update.txt") Then \'如果存在
If Syscmd.Project.Update(False,False) = False Then \'如果没有升级,后面+原AfterOpenProject事件代码
Forms("窗口1").open()
End If
else
Forms("窗口1").open()
End If