Projemiz textbox'taki yol bilgisini alıp bu yoldaki klasorleri listeye ekler.

1 adet textbox
1 adet button
1 adet treeview

Kod:
Imports System.IO Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim klasorler As String() = Directory.GetDirectories(TextBox1.Text) 'textboxdaki yol bilgisini alıp bu yoldaki klasorleri listeye ekliyoruz. TreeView1.Nodes(0).Text = TextBox1.Text Dim anadugum As TreeNode = TreeView1.Nodes(0) If klasorler.Length 0 Then Dim aktifklasor As String For Each aktifklasor In klasorler 'klasor listesi elemenları uzerinde işlem yapmak icin dongu kuruyoruz. Dim dugum As TreeNode = New TreeNode(aktifklasor) anadugum.Nodes.Add(dugum) 'oluşturduğumuz yeni duğumu anaduğum adlı parent node altına ekliyoruz. Next End If TreeView1.ExpandAll() 'anaduğum ve tum alt duğumleri acık veziyette listeliyoruz. End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load TreeView1.Nodes.Add("Klasor Listesi") 'bu isimde 1 adet parent note ekliyoruz. End Sub End Class

__________________