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