Foxtable(狐表)用户栏目专家坐堂 → 模糊查询并打开共享文件夹中的文件


  共有2134人关注过本帖平板打印复制链接

主题:模糊查询并打开共享文件夹中的文件

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


加好友 发短信
等级:三尾狐 帖子:739 积分:7694 威望:0 精华:0 注册:2017/2/3 10:29:00
模糊查询并打开共享文件夹中的文件  发帖心情 Post By: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

 回到顶部