vb读取文件夹的文件(2)

vb.net System.IO 命名空间中的Directory 类的一些常用用法，可以简化文件夹读取的步骤，下面我们先了解下本文要用到Directory类的成员GetDirectories：它用于获取指定目录中子目录的名称。如下代码所示，获取C：盘下的子目录： Dim dirs As String() = Directory.GetDirectories(\ 其结果是我们点开C盘后看到的文件夹，如果要获取更深层次的文件夹列表，就要一个一个文件夹循环使用Directory.GetDirectories方法。 '添加文件夹 Public Sub AddDirectory(ByVal strFatherPath As String, ByVal strPath As String, ByVal nodeFather As TreeNode) Dim iDir As IO.Directory

Dim iDirInfo As IO.DirectoryInfo Dim i As Integer

Dim node As New TreeNode

'先添加本目录，从文件夹路径分析出文件夹名称

node.Text = Strings.Replace(strPath, strFatherPath & \ '为单个节点指定节点未被选中时显示的图标 node.ImageIndex = 1

'为单个节点指定节点被选中时显示的图标 node.SelectedImageIndex = 2 nodeFather.Nodes.Add(node) Application.DoEvents() Try

Dim str() As String = iDir.GetDirectories(strPath) '遍历该目录的子文件夹

For i = 0 To str.GetUpperBound(0) AddDirectory(strPath, str(i), node) Next

Catch ex As Exception

Debug.WriteLine(ex.Message) End Try

node = Nothing iDir = Nothing End Sub

然后在按钮的Click事件中添加代码，用于添加树状结构的顶层以及调用遍历子文件的递归过程，详细代码如下：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim iDir As IO.Directory Dim node As New TreeNode '先把C盘添加到树中 TreeView1.Nodes.Clear() node.ImageIndex = 0

node.Text = \本地磁盘 C:\ node.SelectedImageIndex = -1

6

TreeView1.Nodes.Add(node) Dim i As Integer

'获取C:盘根目录下的文件夹

Dim str() As String = iDir.GetDirectories(\For i = 0 To str.GetUpperBound(0)

'调用遍历过程

AddDirectory(\

Next

node = Nothing iDir = Nothing End Sub

代码添加完毕后，运行，效果如下图所示：

图三：显示C盘的效果

7

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库vb读取文件夹的文件(2)在线全文阅读。