XML Datei (Element hinzufügen)

Question

Hallo zuzsammen,

ich erstelle mit folgendem Code eine XML-Datei....

Private Sub sbSpeichernPfadServer_Click(sender As System.Object, e As System.Windows.RoutedEventArgs) Handles sbSpeichernPfadServer.Click

        Dim strPfadFotosServer As String
        strPfadFotosServer = stbPfadServer.Text

        ' Speichert den Pfad in der Config
        Dim doc As XmlDocument = New XmlDocument()
        doc.LoadXml("<SystemKonfiguration></SystemKonfiguration>")

        Dim strPasswort As String = "[sbdbshbdhfhsfs]"

        Dim strReturn As String = Nothing
        Dim rd As New RijndaelManaged
        Dim md5 As New MD5CryptoServiceProvider
        Dim key() As Byte = md5.ComputeHash(Encoding.UTF8.GetBytes(strPasswort))
        md5.Clear()
        rd.Key = key
        rd.GenerateIV()
        Dim iv() As Byte = rd.IV
        Dim ms As New MemoryStream
        ms.Write(iv, 0, iv.Length)
        Dim cs As New CryptoStream(ms, rd.CreateEncryptor, CryptoStreamMode.Write)
        Dim data() As Byte = Encoding.UTF8.GetBytes(strPfadFotosServer)
        cs.Write(data, 0, data.Length)
        cs.FlushFinalBlock()
        Dim encdata() As Byte = ms.ToArray()
        strReturn = Convert.ToBase64String(encdata)
        cs.Close()
        rd.Clear()
        Dim CN As XmlElement = doc.CreateElement("DirectoryPhotosTablet")
        CN.InnerText = strReturn
        doc.DocumentElement.AppendChild(CN)

        Dim writer As XmlTextWriter = New XmlTextWriter("Config.xml", Nothing)
        writer.Formatting = Formatting.Indented
        doc.Save(writer)

        Dim MsgPfadFotosTabletGespeichert = New MsgBoxYesNo("Der Pfad wurde gespeichert." & vbNewLine & "(Fotos Server)")
        MsgPfadFotosTabletGespeichert.ShowDialog()


    End Sub

Nun möchte ich an einer anderen Stelle ein neues Element in der vorhanden XML-Datei speichern. Bei der Erstellung wird das "DirectoryPhotsTablet" erstellt. Nun soll hier ein weiteres gespeichert werden.

Kann mir jemand helfen?

mfg

Robbo