Menggunakan Tree View Untuk Menampilkan Direktori (VB)

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

image

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 :

image

Advertisements

About Erick Kurniawan

IT Trainer, Consultant, & Microsoft Azure MVP Actual Training (http://actual-training.com)
This entry was posted in VB.NET and tagged . Bookmark the permalink.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Google+ photo

You are commenting using your Google+ account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s