Erick Kurniawan

Oleh: Erick Kurniawan,M.Kom

Pada turtorial ini akan ditunjukan bagaimana caranya untuk menggunakan Treeview Control untuk menampilkan direktori dan sub direktorinya

Pertama buat win app dengan nama UseTreeView kemudian tambahkan button,textbox dan treeview dengan nama btnTampil, txtPath, dan tvPath, design tampilannya sebagai berikut

Kemudian tuliskan kode sebagai berikut:

Private Sub btnTampil_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnTampil.Click
If My.Computer.FileSystem.DirectoryExists(txtPath.Text) = _
False Then
MessageBox.Show(“Path yang anda masukan tidak valid !”)
Exit Sub
End If

‘membersihkan tree node
tvPath.Nodes.Clear()
BuatDirektoriTree(Nothing, txtPath.Text)
End Sub

Private Sub BuatDirektoriTree(ByVal fromNode As TreeNode, _
ByVal strPath As String)
Dim dirBaru As TreeNode
Dim strSubDir As String

For Each oneDirectory As String In _
My.Computer.FileSystem.GetDirectories(strPath)
strSubDir = My.Computer.FileSystem.GetName(oneDirectory)

If (fromNode Is Nothing) Then
‘menambahkan top level directory
dirBaru = tvPath.Nodes.Add(strSubDir)
Else
dirBaru = fromNode.Nodes.Add(strSubDir)
End If

‘rekursi sub direktori
BuatDirektoriTree(dirBaru, _
My.Computer.FileSystem.CombinePath(strPath, strSubDir))
Next
End Sub

Jika dijalankan maka contoh tampilan treeview nya sebagai berikut :