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