<script type="text/javascript">
</script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
请问如何从OpenFileDialog中读取所有文件名到Listbox
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.Add(OpenFileDialog1.FileName)
End Sub
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
__________________________________________________________________________
那你用选取文件夹的方式好了。。。。
FolderBrowserDialog:
If Me.FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
Me.ListBox1.DataSource = IO.Directory.GetFiles(Me.FolderBrowserDialog1.SelectedPath)
End If
__________________________________________________________________________
en 可以这么解决
__________________________________________________________________________
With OpenFileDialog1
.Multiselect = True
.FileName =
.Filter = Excel文件(*.xls)|*.xls
.FilterIndex = 1
End With
OpenFileDialog1.ShowDialog()