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