Mit dieser Funktion kann man eine XML Datei (serialisiertes Objekt) zu einem Objekt deserialisieren.
''' <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
Kommentare zum Snippet