CodeItBetter Programming Another VB Programming Blog

'XML Handling - Append Child Element
Sub Append_XML_Element(oXMLfile As String)
'Requires msxml.dll (Go to Project --> References and and choose Microsoft XML
'version 2.0, or whatever the current version you have installed)
    Dim objDom As New MSXML2.DOMDocument26
    Dim objRootElem As IXMLDOMElement
    Dim objSubRootElem As IXMLDOMElement
    Dim objMemberElem As IXMLDOMElement
 
    'Load xml files
    objDom.async = False
    objDom.Load oXMLfile
 
    ' Creates root element
    Set objRootElem = objDom.documentElement
 
    ' Creates sub root element
    Set objSubRootElem = objDom.createElement("Error")
    objRootElem.appendChild objSubRootElem
 
    ' Creates Error Date & Time element
    Set objMemberElem = objDom.createElement("ErrorDateTime")
    objSubRootElem.appendChild objMemberElem
    objMemberElem.Text = Format(Now, "DD-MMM-YYYY hh:mm:ss")
 
    ' Creates Error Number element
    Set objMemberElem = objDom.createElement("ErrNo")
    objSubRootElem.appendChild objMemberElem
    objMemberElem.Text = "0"
 
    ' Creates Error Description element
    Set objMemberElem = objDom.createElement("ErrDesc")
    objSubRootElem.appendChild objMemberElem
    objMemberElem.Text = "Test Error. Access Denied. Please retry after sometime."
 
    ' Saves XML data to disk.
    objDom.save oXMLfile
 
ExitHere:
    Err.Clear
    Set objDom = Nothing
End Sub