VB2005中如何从OpenFileDialog中读取所有文件名到Listbox

最新推荐文章于 2018-04-16 15:16:40 发布

原创最新推荐文章于 2018-04-16 15:16:40 发布 · 3.1k 阅读

1 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#vb #button #excel #string #each

VB2005 专栏收录该内容

7 篇文章

订阅专栏

本文介绍两种使用Visual Basic在Windows表单应用程序中批量选取多个Excel文件(.xls)的方法。第一种方法通过循环遍历所选文件并将其添加到ListBox中；第二种方法则利用ListBox的AddRange方法一次性添加所有文件名，更为简洁高效。

一、以循环来读取

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