主题：对话框能否实现所选多个文件同时选取功能

Dim dlg As New OpenFileDialog '定一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb" '设置筛选器
dlg.Multiselect  = True
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    For Each f As String in dlg.FileNames
         Output.show(f)
    Next
End If