Foxtable(狐表)用户栏目专家坐堂 → OpenFileDialog是否可以排除文件夹?


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

主题:OpenFileDialog是否可以排除文件夹?

帅哥,在线噢!
lur320
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1030 积分:8973 威望:0 精华:0 注册:2015/8/12 16:28:00
OpenFileDialog是否可以排除文件夹?  发帖心情 Post By:2018/3/23 13:32:00 [只看该作者]

使用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

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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


 回到顶部