Returns "XSICollection" (String). This differs from what the VBScript function TypeName() and the Application.ClassName() method return: 'Object' (for backward compatibility).
Dim oColl ' object pointer for collection ' Create a collection as an ActiveX object Set oColl = CreateObject("XSI.Collection") ' Test it with the Type property If oColl.Type = "XSICollection" Then LogMessage "This is a collection." Else LogMessage "This is a " & oColl.Type End If ' Compare it to the Application.ClassName method If ClassName( oColl ) = "Object" Then LogMessage "This might be a collection." Else LogMessage "This is a " & ClassName( oColl ) & "." End If '-------------------------------------------------- ' Output of above script: 'INFO : "This is a collection." 'INFO : "This might be a collection." |