vb.net使用TreeView 控件显示文件夹列表

来源：qqread 作者：douces 出处：巧巧读书 2008-01-19 进入讨论组

• 关 键 词：
• director
• windows
• vb.net
• html

上一页 1 2 3 下一页 

二、编写代码

上面的准备工作和界面布置我们已经做好了，现在可以进行代码编写了。

首先，我们已经知道，要想获得树状结构的每个层次中的子文件夹，我们必须使用递归过程来完成，下面所示代码所执行的工作是：先把一个已经路径的文件夹添加到树状结构中，然后再遍历它的子文件夹：

'添加文件夹

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 & "\", "", , 1)

'为单个节点指定节点未被选中时显示的图标

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

http://www.qqread.com/book/myvbnet/my0052.html 更多内容请看.NET移动与嵌入式技术、.NET开发手册、.NET实用开发专题，或进入讨论组讨论。

上一页 1 2 3 下一页 

【收藏此文】【大 中 小】【打印】【关闭】

较早的文章：vb.net GDI+入门——坐标系统与像素

较新的文章：vb.net数据库获取随机数据记录