Foxtable(狐表)用户栏目专家坐堂 → 隐藏共享文件夹


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

主题:隐藏共享文件夹

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


加好友 发短信
等级:小狐 帖子:349 积分:2962 威望:0 精华:0 注册:2018/2/27 17:32:00
隐藏共享文件夹  发帖心情 Post By:2020/11/25 11:35:00 [只看该作者]

1、如下图,隐藏了文件夹,却找不到路径了,怎么回事?如何才能操作共享里的文件

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20.png
图片点击可在新窗口打开查看
2、把名字改回来了,如下图,
Dim Proc As New Process 
Proc.File = "\\192.168.0.230\共享\2020.xls"
Proc.Start()
 程序这样也还是找不到路径了,其它电脑也还是看不到

图片点击可在新窗口打开查看此主题相关图片如下:123.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:456.png
图片点击可在新窗口打开查看



 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105493 积分:536456 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/25 11:39:00 [只看该作者]

上面第三张图,双击打开共享目录,然后复制地址栏的路径使用

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


加好友 发短信
等级:小狐 帖子:349 积分:2962 威望:0 精华:0 注册:2018/2/27 17:32:00
  发帖心情 Post By:2020/11/25 12:11:00 [只看该作者]

路径是没有问题的了,没有加后缀“$”前如下程序是可以运行的
Dim Proc As New Process 
Proc.File = "\\192.168.0.230\共享\2020.xls"
Proc.Start()
就是加了后缀以后不管是 "\\192.168.0.230\共享\2020.xls"或是这样 "\\192.168.0.230\共享$\2020.xls",都是找不到路径了
而后把后缀“$”删除,从“共享$”变回“共享”,再运行。不管是 "\\192.168.0.230\共享\2020.xls"或是这样 "\\192.168.0.230\共享$\2020.xls",都还是找不到路径了

”192.168.0.230“ 这台电脑上的系统是2012server, 会不会跟这个有关,怎么解决

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105493 积分:536456 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/25 13:38:00 [只看该作者]

我在2016server建个共享目录测试了一下,没有问题呀,代码如下。

Dim Proc As New Process 
Proc.File = "\\192.168.245.100\upda$\123.xls"
Proc.Start()

隐藏的目录肯定要加$的。提示找不到路径,要么没有权限访问,要么就是ip,或者路径、文件名不对

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


加好友 发短信
等级:小狐 帖子:349 积分:2962 威望:0 精华:0 注册:2018/2/27 17:32:00
  发帖心情 Post By:2020/11/25 14:36:00 [只看该作者]

找到原因了,加后缀“$”后,已不是共享文件了,要再一次设置改名后的文件夹为共享。疏忽了

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


加好友 发短信
等级:小狐 帖子:349 积分:2962 威望:0 精华:0 注册:2018/2/27 17:32:00
  发帖心情 Post By:2020/11/29 19:50:00 [只看该作者]

我在 BeforeOpenProject 事件中加入如下代码,问题关键是在我的电脑是可以运行的,发布出去后在WIN10和XP的电脑就出问题了(出现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

 回到顶部
帅哥,在线噢!
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105493 积分:536456 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/29 21:22:00 [只看该作者]

1、不存在这个路径和文件
2、没有权限访问这个路径和文件

 回到顶部