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