Imports System.IO

Public Class Form1

    Dim baslik As New Windows.Forms.TreeNode("Bahadır ŞAHİN", 0, 0)

    Dim altbaslik1 As New Windows.Forms.TreeNode("Yazılım Uzmanı", 1, 1)

    Dim altbaslik2 As New Windows.Forms.TreeNode("Site:http://www.bahadirsam.com", 1, 1)

    Dim altbaslik3 As New Windows.Forms.TreeNode("Mail:bahadirsa@hotmail.com", 1, 1)

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'TreeView nesnemize node ları ekliyoruz.

        TreeView1.Nodes.Add(baslik)

        baslik.Nodes.Add(altbaslik1)

        baslik.Nodes.Add(altbaslik2)

        baslik.Nodes.Add(altbaslik3)

        TreeView1.Nodes.Add("Haluk")

        TreeView1.Nodes.Add("Fatih")

        TreeView1.Nodes.Add("Mesut")

        TreeView1.Nodes.Add("Ayhan")

    End Sub

    Private Sub btnKaydet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKaydet.Click

        Dim i, j As Integer

        Dim file As String

        file = "C:\treeview.txt"

        Dim fs As FileStream = New FileStream(file, FileMode.Append)

        Dim sw As StreamWriter = New StreamWriter(fs)

        'TreeView daki kayıt sayısı alınıyor.

        i = TreeView1.Nodes.Count - 1

        'Ben bu örnekte 1. node da child node kullandığım için

        'Bu kısmın txt dosyada treeviewdaki gibi görünmesi için

        '1. node aşağıdaki gibi yaptım.

        sw.WriteLine(TreeView1.Nodes.Item(0).ToString)

        sw.WriteLine(baslik.Nodes.Item(0).ToString)

        sw.WriteLine(baslik.Nodes.Item(1).ToString)

        sw.WriteLine(baslik.Nodes.Item(2).ToString)

        'Eğer 1. node da child node kullanmıyacaksanız

        'veya node başlığı gözükmesi yeter diyorsanız

        'j=0 yapın üst satırdaki kodları silin.

        For j = 1 To i Step 1

            sw.WriteLine(TreeView1.Nodes.Item(j).ToString)

        Next

        sw.Close()

        fs.Close()

    End Sub

End Class

Bir makalenin daha sonuna geldik. Bir sonraki makalede buluşmak üzere. Hoşçakalın. Bahadır ŞAHİN