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

Description

Create XML DOM object with a root tag specified. If root tag is invalid returns Nothing.

Implementation

Public Function CreateXMLDOM(ByVal sRootTag)
  Dim boolRC, intRC
  Dim objXMLDoc, objXMLRoot
 
 Set objXMLDoc = CreateObject("Microsoft.XMLDOM")

  On Error Resume Next
  Set objXMLRoot = objXMLDoc.CreateElement(sRootTag)
  intRC = Err.Number
  On Error GoTo 0
  boolRC = isNull(objXMLRoot) OR (intRC <> 0) 
  If boolRC Then
    Set objXMLDoc = Nothing
    Set CreateXMLDOM = Nothing
    Exit Function
  End If    
 
  objXMLDoc.AppendChild(objXMLRoot)
  Set CreateXMLDOM = objXMLDoc
End Function

Test Code

  Set objXMLDoc = CreateXMLDOM("test")
  If objXMLDoc is Nothing Then
    Log.Error "CreateXMLDOM failed"
  End If
  Set objXMLDoc = Nothing
  Set objXMLDoc = CreateXMLDOM("")
  If Not (objXMLDoc is Nothing) Then
    Log.Error "CreateXMLDOM failed"
  End If