1
2
3
4
5
6
7
8
9
10
11
12
|
''' <summary>
''' Diese Funktion serialisiert ein Objekt und speichert es als XML-Format Datei
''' </summary>
''' <typeparam name="T">Der Typ des Objekts</typeparam>
''' <param name="Obj">Das zu serialisierende Objekt</param>
''' <param name="FileName">Die XML Datei in der das Ergebnis gespeichert werden soll</param>
Public Sub XMLSerialize(Of T)(ByVal Obj As Object, ByVal FileName As String)
Dim XML As New XmlSerializer(GetType(T))
Dim FS As New FileStream(FileName, FileMode.Create)
XML.Serialize(FS, Obj)
FS.Close()
End Sub
|