Add Child Tree

Add a child tree to an existing XML document.

Download Chilkat XML ActiveX

'  First, build a sample XML document:
Dim xml As New ChilkatXml
xml.Tag = "stocks"

Dim xmlM As ChilkatXml
Set xmlM = xml.NewChild("Microsoft","")
xmlM.NewChild2 "symbol","MSFT"
xmlM.NewChild2 "recentPrice","28.00"

Dim xmlG As ChilkatXml
Set xmlG = xml.NewChild("Google","")
xmlG.NewChild2 "symbol","GOOG"
xmlG.NewChild2 "recentPrice","440.00"

'  Display the XML so far...
Text1.Text = Text1.Text & xml.GetXml() & vbCrLf

'  This is the XML displayed:
'  <stocks>
'      <Microsoft>
'          <symbol>MSFT</symbol>
'          <recentPrice>28.00</recentPrice>
'      </Microsoft>
'      <Google>
'          <symbol>GOOG</symbol>
'          <recentPrice>440.00</recentPrice>
'      </Google>
'  </stocks>

'  We want to add Yahoo to it:
Dim xYahoo As String
xYahoo = "<Yahoo><symbol>YHOO</symbol><recentPrice>28.00</recentPrice></Yahoo>"

Dim xmlYahoo As New ChilkatXml
xmlYahoo.LoadXml xYahoo

'  Add the xmlYahoo document just under the root node of
'  our original XML document:
xml.AddChildTree xmlYahoo

'  Display the result:
Text1.Text = Text1.Text & xml.GetXml() & vbCrLf