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