Parent page: Service Functions – XML (QTP, VBScript)

Description

Uses .AddChildElementByName method to create a child XML node, then returns reference to the newly created object. If Parent XML node is not defined returns “Nothing”.

Public Function CreateChildElementByName(ByRef objXMLParent, ByVal sTagName, ByVal sInnerText)
 Dim objColl
 If objXMLParent is Nothing Then
  Set CreateChildElementByName = Nothing
  Exit Function
 End If
 objXMLParent.AddChildElementByName sTagName, sInnerText
 Set objColl = objXMLParent.ChildElementsByPath(“./”&sTagName)
 If objColl.Count >0 Then
  Set CreateChildElementByName = objColl.Item(objColl.Count)
 Else
  Set CreateChildElementByName = Nothing
 End If
End Function