XML Datei mit dem XmlSerializer deserialisieren

1
2
3
4
5
6
7
8
9
10
11
12

''' <summary>
''' Diese Funktion deserialisiert eine XML Datei und gibt das Ergebnis in ein Objekt zurück
''' </summary>
''' <typeparam name="T">Der Typ des Objekts</typeparam>
''' <param name="FileName">Die XML Datei aus der gelesen werden soll</param>
Public Function XMLDeSerialize(Of T)(ByVal FileName As String) As Object
    Dim XML As New XmlSerializer(GetType(T))
    Dim FS As New FileStream(FileName, FileMode.Open)
    Dim RetObj As Object = XML.Deserialize(FS)
    FS.Close()
    Return RetObj
End Function