添加xml记录

Dim xmlDoc As New XmlDocument
xmlDoc.Load(Me.TextBox1.Text  & mydt1 & "\" & mydt & ".xml")
Dim root As XmlNode = xmlDoc.SelectSingleNode("Team")
Dim xe1 As XmlElement = xmlDoc.CreateElement("backup")
Dim xesub1 As XmlElement = xmlDoc.CreateElement("filename")
xesub1.InnerText = pathname1
xe1.AppendChild(xesub1)
Dim xesub2 As XmlElement = xmlDoc.CreateElement("time")
xesub2.InnerText = copytime.ToString()
xe1.AppendChild(xesub2)
root.PrependChild(xe1)
xmlDoc.Save(Me.TextBox1.Text & mydt1 & "\" & mydt & ".xml")

注意这个root.PrependChild(BookElement);这是加在xml的头
root.AppendChild(BookElement);这是加在尾。。。
注意xml节点的名称要注意大小写：Team