Pastable version of CreateXML

<pre class='prettyprint' language='asp_vb.net'>' This procedure creates XML document
' and saves it to disk.
' Requires msxml.dll (Go to Project --&gt; References and
' and choose Microsoft XML version 2.0, or whatever the
' current version you have installed)
' The example given below will write the following XML
' documents.
'
' &lt;Family&gt;
'    &lt;Member Relationship=&quot;Father&quot;&gt;
'       &lt;Name&gt;Some Guy&lt;/Name&gt;
'    &lt;/Member&gt;
' &lt;/Family&gt;
'
'but it should be clear how to modify the code
'to create your own documents

Private Sub Create_XML()
   
   Dim objDom As DOMDocument
   Dim objRootElem As IXMLDOMElement
   Dim objMemberElem As IXMLDOMElement
   Dim objMemberRel As IXMLDOMAttribute
   Dim objMemberName As IXMLDOMElement
   
   Set objDom = New DOMDocument
   
   ' Creates root element
   Set objRootElem = objDom.createElement(&quot;Family&quot;)
   objDom.appendChild objRootElem
   
   ' Creates Member element
   Set objMemberElem = objDom.createElement(&quot;Member&quot;)
   objRootElem.appendChild objMemberElem
   
   ' Creates Attribute to the Member Element
   Set objMemberRel = objDom.createAttribute(&quot;Relationship&quot;)
   objMemberRel.nodeValue = &quot;Father&quot;
   objMemberElem.setAttributeNode objMemberRel
   
   ' Create element under Member element, and
   ' gives value &quot;some guy&quot;
   Set objMemberName = objDom.createElement(&quot;Name&quot;)
   objMemberElem.appendChild objMemberName
   objMemberName.Text = &quot;Some Guy&quot;

' Saves XML data to disk.
   objDom.save (&quot;c:\temp\andrew.xml&quot;)
End Sub</pre>
<a href="http://www.refactormycode.com/codes/1273-createxml" style="color:#fff" title="As seen on RefactorMyCode.com"><img alt="Small_logo" src="http://www.refactormycode.com/images/small_logo.gif" style="border:0" /></a>

Refactor :my => 'code'

Recent

Popular

Pastable version of CreateXML