请问如何从OpenFileDialog中读取所有
文件名到List
Box Private Sub Button3_Click(ByVal sender As Sy
stem.Object,ByVal e As Sy
stem.EventArgs) Handles Button3.Click On Error Resume Next With OpenFileDialog1 .Multiselect = True .FileName = .Filter = Excel
文件(*.xls)|*.xls .FilterIndex = 1 End With OpenFileDialog1.ShowDialog() List
Box1.Items.Add(OpenFileDialog1.FileName) End Sub 请问如何从OpenFileDialog中读取所有
文件名到List
Box? __________________________________________________________________________ 问题已经
解决,不知是否正确? Private Sub Button3_Click(ByVal sender As Sy
stem.Object,ByVal e As Sy
stem.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 List
Box1.Items.Add(s) Next End Sub __________________________________________________________________________ 那你用选取
文件夹的方式好了。。。。 Folder
browserDialog: If Me.Folder
browserDialog1.ShowDialog() = DialogResult.OK Then Me.List
Box1.DataSource = IO.Directory.GetFiles(Me.Folder
browserDialog1.Selecte
dpath) End If __________________________________________________________________________ en 可以这么
解决 __________________________________________________________________________ With OpenFileDialog1 .Multiselect = True .FileName = .Filter = Excel
文件(*.xls)|*.xls .FilterIndex = 1 End With OpenFileDialog1.ShowDialog() List
Box1.Items.AddRange(OpenFileDialog1.FileNames) __________________________________________________________________________ 不必用循环而用List
Box.Items.AddRanage就可以加
一个集合进来了,如上. __________________________________________________________________________ 高手啊! 佩服! __________________________________________________________________________ 感谢fangxinggood(JustACoder) 和平民百姓等高手! __________________________________________________________________________
原文地址:https://www.jb51.cc/vb/263431.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。