vb.net怎么把一个文件夹的所有文件都添加到listbox里。
答案:2 悬赏:10 手机版
解决时间 2021-01-04 18:36
- 提问者网友:我是女神我骄傲
- 2021-01-03 20:12
调出打开文件对话框,选中文件后把对话框里的所有文件都添加到listbox里怎么做?如果还要隐藏\以前的文件夹名,只显示文件名怎么做?
最佳答案
- 五星知识达人网友:duile
- 2021-01-03 20:51
使用FolderBrowserDialog控件
If FolderBrowserDialog1.ShowDialog() <> DialogResult.Cancel Then
TextBox6.Text = FolderBrowserDialog1.SelectedPath
TextBox6.SelectionStart = TextBox6.Text.Length
Dim FileNames() As String = Directory.GetFiles(TextBox6.Text)
For i As Integer = 0 To FileNames.Length - 1
ListBox1.Items.Add(Path.GetFileName(FileNames(i)))
Next
End If
If FolderBrowserDialog1.ShowDialog() <> DialogResult.Cancel Then
TextBox6.Text = FolderBrowserDialog1.SelectedPath
TextBox6.SelectionStart = TextBox6.Text.Length
Dim FileNames() As String = Directory.GetFiles(TextBox6.Text)
For i As Integer = 0 To FileNames.Length - 1
ListBox1.Items.Add(Path.GetFileName(FileNames(i)))
Next
End If
全部回答
- 1楼网友:一袍清酒付
- 2021-01-03 21:10
定义一个窗体继承自system.windows.forms.form。
添加以下控件对象到窗体:
private folderbrowserdialog1 as system.windows.forms.folderbrowserdialog
private button1 as system.windows.forms.button
private listbox1 as system.windows.forms.listbox
给button1的click事件添加以下处理程序:
sub button1click(sender as object, e as eventargs)
if system.windows.forms.dialogresult.ok=me.folderbrowserdialog1.showdialog(me) then
me.listbox1.items.addrange(system.io.directory.getfiles(me.folderbrowserdialog1.selectedpath))
end if
end sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯