[VB.NET]请问如何从OpenFileDialog中读取所有文件名到Listbox

<script type="text/javascript"><!--google_ad_client = "pub-8333940862668978";/* 728x90, 创建于 08-11-30 */google_ad_slot = "4485230109";google_ad_width = 728;google_ad_height = 90;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>
请问如何从OpenFileDialog中读取所有文件名到Listbox
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
On Error Resume Next
With OpenFileDialog1
.Multiselect = True
.FileName =
.Filter = Excel文件(*.xls)|*.xls
.FilterIndex = 1
End With
OpenFileDialog1.ShowDialog()
ListBox1.Items.Add(OpenFileDialog1.FileName)
End Sub

请问如何从OpenFileDialog中读取所有文件名到Listbox?
__________________________________________________________________________
问题已经解决,不知是否正确?

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
On Error Resume Next
Dim s As String
With OpenFileDialog1
.Multiselect = True
.FileName =
.Filter = Excel文件(*.xls)|*.xls
.FilterIndex = 1
End With
OpenFileDialog1.ShowDialog()
For Each s In OpenFileDialog1.FileNames
ListBox1.Items.Add(s)
Next
End Sub
__________________________________________________________________________
那你用选取文件夹的方式好了。。。。

FolderBrowserDialog：

If Me.FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
Me.ListBox1.DataSource = IO.Directory.GetFiles(Me.FolderBrowserDialog1.SelectedPath)
End If
__________________________________________________________________________
en 可以这么解决
__________________________________________________________________________
With OpenFileDialog1
.Multiselect = True
.FileName =
.Filter = Excel文件(*.xls)|*.xls
.FilterIndex = 1
End With
OpenFileDialog1.ShowDialog()

ListBox1.Items.AddRange(OpenFileDialog1.FileNames)
__________________________________________________________________________
不必用循环而用ListBox.Items.AddRanage就可以加一个集合进来了,如上.
__________________________________________________________________________
高手啊!
佩服!
__________________________________________________________________________
感谢fangxinggood(JustACoder) 和平民百姓等高手!
__________________________________________________________________________