XML nur ein Element bearbeiten

Hallo,
ok, habe es nun so gelöst:
Code:
On Error GoTo err
Dim doc As XmlDocument = New XmlDocument()
Dim node As XmlNode
doc.Load(filename)
node = doc.SelectSingleNode("Programm/ListBox")
node.RemoveAll()
For i = 0 To ListBox1.Items.Count - 1
node.AppendChild(doc.CreateNode(XmlNodeType.Element, "ListBoxEintrag", ""))
node.ChildNodes(i).InnerText = ListBox1.Items.Item(i)
node.ChildNodes(i).Attributes.SetNamedItem(doc.CreateAttribute("Name")).Value = "Value"
Next
doc.Save(filename)
Exit Sub
err:
MessageBox.Show(Err.Description, "Fehler beim Speichern der XML Datei")

Danke an alle, die mir geholfen haben, auch wenn ich mich sau dumm angestellt habe. :-(

mfg
forsterm
 

Neue Beiträge

Zurück