- A+
所属分类：vb.net
下面笔记是返回一个文件夹或者是一个盘符下的所有目录包括系统文件目录，不想显示系统目录文件可以使用隐藏文件夹，或者判断不想出现的文件夹过滤掉就可以了
直接开始正题，打开vS软件新建VB工程，
控件 DataGridView1，用于显示文件夹列表，其他控件也可以
按钮控件Button1，用于触发事件。
一个ComboBox1.Text，用于方便手动输入路径或者盘符，TextBox1控件也可以看自己方便啥
代码：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim v As String = 0
Dim dir As New DirectoryInfo(ComboBox4.Text)'ComboBox4.Text 盘符路径
For Each d As IO.DirectoryInfo In dir.GetDirectories
Dim yinc As New FileInfo(d.FullName)
Me.DataGridView1.Rows.Add(1) '添加行
Me.DataGridView1.Rows(v).Cells(0).Value = yinc '文件名称
v = v + 1
Next
End Sub
复制
