TextBox'taki Bilgileri Klasöre Eklemek

ads

ads

Uzun zamandan beri Visual basic derslerine devam edemiyorduk kaldığımız yerden devam ediyoruz.

Bu dersimizde Treeview ile Klasör Listelemeyi öğreneceğiz.

Lazım olan araçlarımız;

1 tane textbox
1 tane button
1 tane treeview

Aşağıdaki kodları ekleyiniz.

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 bilgileri alarak abu bilgiler ile klasörlerdekileri listeliyoruz.
        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 ' klsör listeleri üzerindeki bilgiler için döngü kuruyoruz
                Dim dugum As TreeNode = New TreeNode(aktifklasor)
                anadugum.Nodes.Add(dugum) 'oluşturulan bu döngü anadüğüm adlı parent node altına ekliyin.

            Next
        End If
        TreeView1.ExpandAll() 'anadüğüm ve tüm alt düğümleri açık veziyette listemekteyiz.
    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 ekledik.
    End Sub
End Class 

ads