無法插入以下XML節點VB.net

Question

我想附加以下XML文件以包含其他<ID>Sam</ID> ：

<INDEX>
  <ID>Billy</ID>
</INDEX>

但是，我似乎無法讓它工作，我嘗試過以下代碼。

Dim NEWNAME as string="SAM"
Dim xmlIndex As XmlDocument = New XmlDocument()
xmlIndex.Load(Application.StartupPath & "\SYSTEM\MY_INDEX.xml")

With 
xmlDoc.SelectSingleNode("/INDEX").CreateNavigator().AppendChild()
.WriteStartElement("ID", NEWNAME)                                                                  
.WriteEndElement()
.Close()

xmlIndex.Save(Application.StartupPath & "\SYSTEM\MY_INDEX.xml")

End With

另請注意，為了方便這個問題，我已將NEWNAME聲明為SAM ，但這同樣可以是TextBox.Text 。

Answer 1

我ususaly使用這樣的東西來編寫一個新的Node。

Dim NEWNAME As String = "SAM"
Dim xmlIndex As XmlDocument = New XmlDocument()
xmlIndex.Load("C:\Test.xml")

Dim root As XmlNode = xmlIndex.DocumentElement
Dim elem As XmlElement = xmlIndex.CreateElement("ID")
elem.InnerText = NEWNAME
root.AppendChild(elem)

xmlIndex.Save("C:\Test.xml")