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