Parent page: Service Functions – MSXMLDOM (QTP, TestComplete, VBScript)

Description

Set value of a child attribute.

Implementation

Private Function p_SetXMLElementAttrText(ByRef objXMLElement, ByVal sAttrName, ByVal sValue)
 Dim boolRC, intRC
 On Error Resume Next
 Call objXMLElement.SetAttribute(sAttrName, sValue)
 intRC = Err.Number
 On Error GoTo 0
 boolRC = intRC <> 0 
 If boolRC Then
 p_SetXMLElementAttrText = False
 Exit Function
 End If 
 p_SetXMLElementAttrText = True
End Function