XSICollection.Type

説明

"XSICollection"(String)を戻します。この戻り値は、VBScript関数TypeName()およびApplication.ClassName()メソッドが戻すObject(下位互換用)とは異なります。

VBScript の例

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."