Question

vb.net 的openfiledialog问题

怎么把openfiledialog选中的多个文件的文件名导入到列表listbox中呀

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
OpenFileDialog1.Multiselect = True
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
If Not (OpenFileDialog1.FileName Is Nothing) Then
add(OpenFileDialog1.FileName)
End If
End If
End Sub
Private Sub add(ByVal pp As String)
MessageBox.Show(pp, "adsd")
If pp <> "" Then
ListBox1.BeginUpdate()
ListBox1.Items.Add(pp)
ListBox1.EndUpdate()
End If
End Sub

就是搞不出，只有一个导入了进去

Answer 1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
OpenFileDialog1.Multiselect = True
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
ListBox1.Items.Clear()
ListBox1.Items.AddRange(OpenFileDialog1.FileNames)
End If
End Sub