Dim xmlTW As New XmlTextWriter("..\xmlTextWrite.xml", Nothing)
With xmlTW
.Formatting = Formatting.Indented
.Indentation = 2
.WriteStartDocument()
.WriteComment("Text writer comment")
.WriteStartElement("Message")
.WriteAttributeString("Posted", Now)
.WriteElementString("From", txtFrom.Text)
.WriteStartElement("Tests")
.WriteElementString("Test2", "Value of stest2")
.WriteElementString("Test2", "vlaue of test1")
.WriteEndElement()
.WriteElementString("Text", txtText.Text)
.WriteEndElement()
.Flush()
.Close()
End With
Thursday, March 03, 2005
Subscribe to:
Post Comments (Atom)


No comments:
Post a Comment