升级 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

共有3119人关注过本帖树形打印复制链接主题：升级

cd_tdh

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐精帖子：3136 积分：20905 威望：0 精华：0 注册：2016/3/28 16:57:00

升级

Post By：2022/1/5 16:48:00 [只看该作者]

老师，使用帮助方式升级，升级路径中没有升级文件时会报错，怎么来判断？

If Syscmd.Project.Update(False,False) = False Then '如果没有升级
Forms("窗口1").open()
'后续其它代码
End If

此主题相关图片如下：qq截图20220105164752.jpg

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：109387 积分：556591 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/1/5 16:58:00 [只看该作者]

判断能不能下载升级文件：http://www.foxtable.com/mobilehelp/topics/0160.htm

cd_tdh

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐精帖子：3136 积分：20905 威望：0 精华：0 注册：2016/3/28 16:57:00

Post By：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:26:05编辑过]

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：109387 积分：556591 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：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()
'后续其它代码

cd_tdh

小大 5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐精帖子：3136 积分：20905 威望：0 精华：0 注册：2016/3/28 16:57:00

Post By：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