<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
请问如何从OpenFileDialog中读取所有文件名到Listbox?
__________________________________________________________________________
问题已经解决,不知是否正确?
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()
ListBox1.Items.AddRange(OpenFileDialog1.FileNames)
__________________________________________________________________________
不必用循环而用ListBox.Items.AddRanage就可以加一个集合进来了,如上.
__________________________________________________________________________
高手啊!
佩服!
__________________________________________________________________________
感谢fangxinggood(JustACoder) 和平民百姓等高手!
__________________________________________________________________________
请问如何从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
请问如何从OpenFileDialog中读取所有文件名到Listbox?
__________________________________________________________________________
问题已经解决,不知是否正确?
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()
ListBox1.Items.AddRange(OpenFileDialog1.FileNames)
__________________________________________________________________________
不必用循环而用ListBox.Items.AddRanage就可以加一个集合进来了,如上.
__________________________________________________________________________
高手啊!
佩服!
__________________________________________________________________________
感谢fangxinggood(JustACoder) 和平民百姓等高手!
__________________________________________________________________________