Treeview ile Klasör Listelemek

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

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

  • Etiketler;
Yusuf Göksu Coşkun
Lefke Avrupa Üniversitesi - Bilgisayar Mühendisliği
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

kardeş eline saglıkta hata veriyo ...
Tam olarak nerede hata veriyor bana söylersen yardımcı olabilirim...
Merhaba bu görünümü ağaç değil de Windows klasörlerindeki ayrıntılı yada simge görünümü şeklinde yapabilir miyiz? Bir formun içine bir klasörün içindekileri windows görünümü gibi nasıl yansıtabilirim?

Yukarı Git