以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  查找并打开文件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=169392)
--  作者：tld
--  发布时间：2021/6/15 10:13:00
--  查找并打开文件

老师好。e盘有文件夹1，该文件夹下有多个子目录，如1a 、1b 、1c等，每个子目录下有多个文件。我希望查找文件fil.doc这个文件并打开，但不知道该文件在哪个子目录中。怎么办？谢谢老师！
--  作者：linyunu1
--  发布时间：2021/6/15 10:25:00
--  
For Each dir As String In FileSys.GetDirectories("E:\\文件夹1")
    If FileSys.FileExists("E:\\文件夹1\\" & dir & "\\fil.doc") Then
        Dim Proc As New Process \'定义一个新的Process
        Proc.File = "E:\\文件夹1\\" & dir & "\\fil.doc"  \'指定要打开的文件
        Proc.Start()
        Exit For
    End If
Next
--  作者：tld
--  发布时间：2021/6/15 10:37:00
--  
谢谢老师！！