Public Sub LeseStruktur(ByVal Pfad As String, ByVal Tree As TreeView)
 
        If IO.File.Exists(Pfad) = False Then
            IO.File.Create(Pfad)
            Exit Sub
        End If
 
        Try
            Dim sr As IO.FileStream
            sr = IO.File.Open(Pfad, IO.FileMode.Open)
            Dim ser As New _
              System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
            Dim ar As ArrayList
            ar = ser.Deserialize(sr)
            For Each node As TreeNode In ar
                Tree.Nodes.Add(node)
            Next
            sr.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
    End Sub
 
    Public Sub SchreibeStruktur(ByVal Pfad As String, ByVal Tree As TreeView)
 
        Try
            If IO.File.Exists(Pfad) Then IO.File.Delete(Pfad)
            Dim ser As New _
              System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
            Dim fs As New IO.FileStream(Pfad, IO.FileMode.CreateNew)
            Dim ar As New ArrayList
            For Each node As clsModTreeNode In Tree.Nodes
                node.SummenBeschreibung = "asdf"
                ar.Add(node)
            Next
            ser.Serialize(fs, ar)
            fs.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
    End Sub