- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 模糊查询并打开共享文件夹中的文件 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=169396)
-- 发布时间：2021/6/15 11:15:00
-- 模糊查询并打开共享文件夹中的文件
老师好。有共享文件，希望模糊查找并打开文件。下面代码有误，但不知道错在哪里，请您帮忙。谢谢！！
For Each dir As String In FileSys.GetDirectories("\\\\192.168.1.31\\")
For Each dir1 As String In FileSys.GetDirectories(dir)
For Each dir2 As String In FileSys.GetDirectories(dir1)
If FileSys.FileExists("\\\\192.168.1.31\\" & dir1 & dir2 & "\\*" & fil & "*.doc") Then
Dim Proc As New Process \'定义一个新的Process
Proc.File = ("\\\\192.168.1.31\\" & dir1 & dir2 & "\\*" & fil & "*.doc")
Proc.Start()
Exit For
End If
Next
Next
Next
-- 发布时间：2021/6/15 11:58:00
--
FileSys.FileExists不支持模糊查询，需要遍历文件使用like判断，比如：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=169277&skin=0
-- 发布时间：2021/6/15 13:12:00
--
For Each dir As String In FileSys.GetDirectories("\\\\192.168.1.31\\")
Next
上面代码也有问题
此主题相关图片如下：捕获.png
-- 发布时间：2021/6/15 13:40:00
--
试试指定共享目录：For Each dir As String In FileSys.GetDirectories("\\\\192.168.1.31\\某某目录")
如果也不行，应该是路就不正确，或者没有权限访问