以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  OpenFileDialog是否可以排除文件夹？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=116370)
--  作者：lur320
--  发布时间：2018/3/23 13:32:00
--  OpenFileDialog是否可以排除文件夹？
使用OpenFileDialog帮助用户在海量PDF里面查找文件。

但是打开的窗口中，下一级路径的文件夹是不会排除掉的，怎么排除文件夹不在对话框里面出现？
If e.Col.name="Workshop_status" Then
    Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
    dlg.InitialDirectory=。。。。。。。
    
    dlg.Filter= "PDF文件|" & e.Row("s2o") & "*.pdf" \'设置筛选器   只能查找单个的PDF文件？
    If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
        Dim Proc As New Process \'定义一个新的Process
        Proc.File = dlg.FileName \'指定要打开的文件
        Proc.Start()
        
    End If
End If
--  作者：有点甜
--  发布时间：2018/3/23 14:31:00
--  

OpenFileDialog 无法隐藏子文件夹的。

 

如果多选pdf打开，参考代码

 

Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.MultiSelect = True
dlg.Filter= "PDF文件|*.pdf" \'设置筛选器   只能查找单个的PDF文件?
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    For Each f As String In dlg.FileNames
        Dim Proc As New Process \'定义一个新的Process
        Proc.File = dlg.FileName \'指定要打开的文件
        Proc.Start()
    Next
End If