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
 
        Dim sr As IO.FileStream = IO.File.Open(Pfad, IO.FileMode.Open)
 
        Try
            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
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            sr.Close()
        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 TreeNode In Tree.Nodes
                ar.Add(node)
            Next
            ser.Serialize(fs, ar)
            fs.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
    End Sub