主题：升级

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

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

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

没明白怎么用这个

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

报错，还是用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

升级是用的http

老师，这样判断还有个逻辑问题在哪儿？没有升级包直接跳过了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

必须要这样写哇？

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

这样主要有升级包都会升级，怎么对比时间呢？