このオブジェクトのパス内にあるオブジェクトのXSICollectionを戻します。
set oCollectionItem = CreateObject("XSI.CollectionItem") oCollectionItem.Value = "light.visibility" logmessage oCollectionItem.name logmessage oCollectionItem.pathitems(0)