ISLibrary.Count

Description

The number of the child libraries within the collection.

Syntax

object.Count

Part	Attribute	Type	Description
`object`	Required	ISLibrary	The `object` always implements the ISLibrary interface

Restriction: This property is readonly.

Return Value

int

Example

Display the number of the child libraries at each level of the library tree.

sub main
  Dim aLibrary
  Dim aMessage
    
  set aLibrary = Profile.LoadRootLibrary
  aMessage = GetLibraryInfo(aLibrary, 0) 
  Profile.MsgBox (aMessage)    
end sub
     
function GetLibraryInfo(aLibrary, aLevel)
  Dim aInfo
  Dim i 
   
  aInfo = Space(4 * aLevel) & aLibrary.Name &_
    " (Children: " & aLibrary.Count & ")" & vbNewLine          
     
  for i = 0 to aLibrary.Count - 1
    aInfo = aInfo & GetLibraryInfo(aLibrary.SubLibrary(i), aLevel + 1)  
  next
  
  GetLibraryInfo = aInfo
  
end function

Note:

In Profile Client v8 on User Interface Library can be found in Maintain > Library.

Version information

Added in v7.8.0