VB2005中如何从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

 二、更简洁的方法

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.AddRange(OpenFileDialog1.FileNames)

End Sub