Get count of collection members

mfilescountcollmembers.vbs

Dim CountOfMembers

Dim propValues : Set propValues = Vault.ObjectPropertyOperations.GetProperties(ObjVer)
Dim propValue : Set propValue = propValues.SearchForPropertyEx(MFBuiltInPropertyDefCollectionMemberDocuments,true) '46 = MFBuiltInPropertyDefCollectionMemberDocuments

If IsNull(propValue) Then
  CountOfMembers = -1
Else
  Dim value : Set value = propValue.TypedValue
  Dim Lookups : Set Lookups = value.GetValueAsLookups()
  CountOfMembers = Lookups.Count
End If

output = CountOfMembers