以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  远程升级问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=179940)
--  作者：15666282205
--  发布时间：2022/9/19 17:25:00
--  远程升级问题
老师，我的项目数据源放在了阿里云，升级文件放在了我们的局域网，如果在局域网以外登录时，显示找不到升级路径。我想这种情况时自动跳过升级，请指教。
这是AfterOpenProject事件代码，自动升级的代码
\'-----------------自动升级---------------------------------
If Syscmd.Project.Update(False,False) = False Then \'如果没有升级
        Forms("主页").Open()
End If
这是存放升级文件的目录：
\\\\Win-tvbobpltcvi\\冶金装备公司\\升级文件
就是说，如果在局域网以外找不到这个目录，则不升级了。请您指导。
--  作者：有点蓝
--  发布时间：2022/9/19 20:11:00
--  
dim up as boolean
If FileSys.DirectoryExists("\\\\Win-tvbobpltcvi\\冶金装备公司\\升级文件") Then
    up = Syscmd.Project.Update(False,False)
End If 
if up = False Then \'如果没有升级
        Forms("主页").Open()
End If