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

Description

Add Processing Instruction node.

Implementation

Public Function XMLAddProcessingInstruction(ByRef objXMLDoc, ByVal sTarget, ByVal sData)
 Dim boolRC, intRC
 Dim objNode
 On Error Resume Next
 Set objNode = objXMLDoc.CreateProcessingInstruction(sTarget, sData)
 intRC = Err.Number
 On Error GoTo 0
 boolRC = isNull(objNode) OR (intRC <> 0)
 If Not boolRC Then
 objXMLDoc.InsertBefore objNode, objXMLDoc.FirstChild
 End If 
End Function