以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  局域网中的$文件名的访问  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=158697)

--  作者:mxl810823
--  发布时间:2020/11/29 19:53:00
--  局域网中的$文件名的访问
我在 BeforeOpenProject 事件中加入如下代码,问题关键是在我的电脑是可以运行的,发布出去后在WIN10和XP的电脑就出问题了,win7的运行正常(出现msg信息后直接退出)。我的电脑本身是WIN10的

If Network.Ping("192.168.0.230",1000) = True Then
    Dim s As String = "\\\\192.168.0.230\\fxfile791123$\\系统更新包\\sys.txt"
    If FileSys.FileExists(s) = False Then
        e.HideSplashForm = True
        MessageBox.show("系统更新中,请稍后再重新打开.")
        e.Cancel = True
        System.Diagnostics.Process.GetCurrentProcess().Kill
        Return
    End If
End If

--  作者:有点蓝
--  发布时间:2020/11/29 21:23:00
--  
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=158581