Dim list As New List(Of SFileSystemObject)
        list.Add(New SFileSystemObject("xxx", "yya", _
          EFileSystemObjectType.Directory))
 
        Dim xmlSerializer As New System.Xml.Serialization.XmlSerializer(GetType( _
          List(Of SFileSystemObject)))
        Dim memStream As New MemoryStream()
 
        xmlSerializer.Serialize(memStream, list)
 
        Dim memStream1 As New MemoryStream()
        Dim bw As New BinaryWriter(memStream1)
 
        bw.Write(memStream.Length)
        bw.Write(memStream.ToArray)
 
        list = Nothing
 
        memStream.Close()
        memStream.Dispose()
        memStream1.Position = 0
 
        xmlSerializer = New System.Xml.Serialization.XmlSerializer(GetType(List( _
          Of SFileSystemObject)))
 
 
        Dim br As New BinaryReader(memStream1)
        Dim length As Integer = br.ReadInt64()
        'Dim b As Byte() = BinaryReader.ReadBytes(length)
        'memStream.Write(b, 0, length)
        list = CType(xmlSerializer.Deserialize(memStream1), List(Of _
          SFileSystemObject))
 
 
        Dim sfso1 As SFileSystemObject = list(0)

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist