Imports System.Xml.Serialization
 
Public Class XmlSer
    Public Shared Sub xmlSpeichern(Of T)(ByVal obj As T, tnListe As String)
        Dim meineSerialisierer As New XmlSerializer(GetType(T))
        Using sw As New IO.StreamWriter(tnListe)
            meineSerialisierer.Serialize(sw, obj)
        End Using
    End Sub
 
    Public Shared Function xmlLesen(Of T)(tnListe As String) As T
        Dim meineSerialisierer As New XmlSerializer(GetType(T))
        Using sr As New IO.StreamReader(tnListe)
            Return CType(meineSerialisierer.Deserialize(sr), T)
        End Using
    End Function
End Class

        XmlSer.xmlSpeichern(Personen, Tnliste)
        ....
        Personen2 = XmlSer.xmlLesen(Of List(Of Teilnehmer))(Tnliste)

________
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