Treeview ile Klasör Listelemek

[alimania]

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!

Bu dersimizde textbox'taki yol bilgisini alıp bu yoldaki klasörleri listeye ekler.

1 adet textbox
1 adet button
1 adet treeview

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 klasörleri 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 'klasör listesi elemenları üzerinde işlem yapmak için döngü kuruyoruz.                 Dim dugum As TreeNode = New TreeNode(aktifklasor)                 anadugum.Nodes.Add(dugum) 'oluşturduğumuz yeni düğümü anadüğüm adlı parent node altına ekliyoruz.              Next         End If         TreeView1.ExpandAll() 'anadüğüm ve tüm alt düğümleri açı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("Klasör Listesi") 'bu isimde 1 adet parent note ekliyoruz.     End Sub End Class