Foxtable(狐表)用户栏目专家坐堂 → 局域网中的$文件名的访问


  共有3102人关注过本帖树形打印复制链接

主题:局域网中的$文件名的访问

帅哥哟,离线,有人找我吗?
mxl810823
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:353 积分:3023 威望:0 精华:0 注册:2018/2/27 17:32:00
局域网中的$文件名的访问  发帖心情 Post By: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

 回到顶部