Import System.XML
Dim xmldoc As New XmlDocument
Dim xmlElem As XmlElement
Dim xmlNde As XmlNode
Dim xmlTxt As XmlText
xmlNde = xmldoc.CreateNode(XmlNodeType.XmlDeclaration, "", "")
xmldoc.AppendChild(xmlNde)
xmlElem = xmldoc.CreateElement("", "DETAILS", "")
xmlTxt = xmldoc.CreateTextNode(String)
With xmlElem
.AppendChild(xmlTxt)
End With
With xmldoc
.AppendChild(xmlElem)
.Save("C:\MyFolder\myXMLFile.xml")
End With
Dim xmldoc As New XmlDocument
Dim xmlElem As XmlElement
Dim xmlNde As XmlNode
Dim xmlTxt As XmlText
xmlNde = xmldoc.CreateNode(XmlNodeType.XmlDeclaration, "", "")
xmldoc.AppendChild(xmlNde)
xmlElem = xmldoc.CreateElement("", "DETAILS", "")
xmlTxt = xmldoc.CreateTextNode(String)
With xmlElem
.AppendChild(xmlTxt)
End With
With xmldoc
.AppendChild(xmlElem)
.Save("C:\MyFolder\myXMLFile.xml")
End With
No comments:
Post a Comment