All pastes #938763 Raw Edit

Unnamed

public text v1 · immutable
·published 2008-03-11 21:10 UTC
rendered paste body
DIM Tree As New XmlDocument
DIM Node As XmlNode

Node = Tree.CreateElement("Sites")

tree.AppendChild(nodo)

For Each a In Arr
Node = tree.CreateElement("value")
Node.InnerText = a.ToString
Tree.DocumentElement.AppendChild(nodo)
Next

Tree.Save(Application.StartupPath & "\File.xml")