之前我們也提到過(guò)有關(guān)VB.NET文件夾的列子，今天我們來(lái)用TreeView 控件使用就在Windows資源管理中顯示文件夾列表的左邊欄，現(xiàn)在模仿它來(lái)做一個(gè)按樹(shù)狀結(jié)構(gòu)顯示指定盤(pán)符中所有文件夾的小程序，大家快看看。

一、VB.NET文件夾準(zhǔn)備知識(shí)

1、了解 TreeView 控件的基本使用，掌握了如何添加樹(shù)狀結(jié)構(gòu)的數(shù)據(jù)到TreeView 控件中，相關(guān)文章參看這里：vb.net入門(mén)——TreeView 控件的使用
2、了解 ImageList 控件的基本使用。
3、了解vb.net System.IO 命名空間中的Directory 類的一些常用用法，下面我們先了解下本文要用到Directory類的成員GetDirectories：它用于獲取指定目錄中子目錄的名稱。如下代碼所示，獲取C：盤(pán)下的子目錄：

Dim dirs As String() = Directory.GetDirectories("c:\") 

其結(jié)果是我們點(diǎn)開(kāi)C盤(pán)后看到的文件夾，如果要獲取更深層次的文件夾列表，就要一個(gè)一個(gè)文件夾循環(huán)使用Directory.GetDirectories方法。

二、VB.NET文件夾窗體布局

在窗體上拖放一個(gè)TreeView 控件，一個(gè)Button 按鈕，一個(gè)ImageList 組件。

在ImageList 組件中按順序添加如下三個(gè)圖標(biāo)(單擊這里下載圖標(biāo)文件)，圖標(biāo)大小設(shè)置為16*16。

然后把TreeView 控件的ImageList 屬性設(shè)置為 ImageList1，注意，TreeView 控件還有一個(gè) SelectedImageIndex 屬性，它是用于獲取或設(shè)置當(dāng)樹(shù)節(jié)點(diǎn)選定時(shí)所顯示的圖像的圖像列表索引值。我們注意到其實(shí)TreeView 控件的每一個(gè)Node(節(jié)點(diǎn))都有一個(gè)屬于自己的 SelectedImageIndex 屬性值，所以我們可以像設(shè)置節(jié)點(diǎn)的 ImageIndex 屬性一樣在運(yùn)行時(shí)單位為每一個(gè)Node設(shè)置 SelectedImageIndex 屬性。

三、VB.NET文件夾編寫(xiě)代碼

上面的準(zhǔn)備工作和界面布置我們已經(jīng)做好了，現(xiàn)在可以進(jìn)行代碼編寫(xiě)了。

首先，我們已經(jīng)知道，要想獲得樹(shù)狀結(jié)構(gòu)的每個(gè)層次中的子文件夾，我們必須使用遞歸過(guò)程來(lái)完成，下面所示代碼所執(zhí)行的工作是：先把一個(gè)已經(jīng)路徑的文件夾添加到樹(shù)狀結(jié)構(gòu)中，然后再遍歷它的子文件夾：

'添加文件夾  
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)  
'為單個(gè)節(jié)點(diǎn)指定節(jié)點(diǎn)未被選中時(shí)顯示的圖標(biāo)  
node.ImageIndex = 1 
'為單個(gè)節(jié)點(diǎn)指定節(jié)點(diǎn)被選中時(shí)顯示的圖標(biāo)  
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事件中添加代碼，用于添加樹(shù)狀結(jié)構(gòu)的頂層以及調(diào)用遍歷子文件的遞歸過(guò)程，詳細(xì)代碼如下：

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盤(pán)添加到樹(shù)中  
TreeView1.Nodes.Clear()  
node.ImageIndex = 0 
node.Text = "本地磁盤(pán) C:" 
node.SelectedImageIndex = -1  
TreeView1.Nodes.Add(node)  
Dim i As Integer  
'獲取C:盤(pán)根目錄下的文件夾  
Dim str() As String = iDir.GetDirectories("C:\")  
For i = 0 To str.GetUpperBound(0)  
'調(diào)用遍歷過(guò)程  
AddDirectory("C:", str(i), node)  
Next  
node = Nothing 
iDir = Nothing 
End Sub 

代碼添加完畢后，運(yùn)行，效果如下圖所示：

顯示C盤(pán)的效果

【編輯推薦】

1. VB.NET獲取硬盤(pán)信息四大法寶
2. 講述VB.NET調(diào)用Excel的好處
3. 簡(jiǎn)單例子概述VB.NET新窗體
4. 描述VB.NET工程轉(zhuǎn)換成步驟
5. 自己動(dòng)手實(shí)現(xiàn)VB.NET控件數(shù)組