vbnet OpenFileDialog 多選

引用來源
--
OpenFileDialog1.Multiselect = True '多選檔案
If Not e.Cancel Then
   Dim i As Int16
   ListBox1.Items.Clear()
   For i = 0 To OpenFileDialog1.FileNames.Length - 1
       ListBox1.Items.Add(OpenFileDialog1.FileNames(i))
   Next
End If