ISLibrary.SubLibrary

Description

The sub-library of the library.

Syntax

object.SubLibrary(aIndex)

Part	Attribute	Type	Description
`object`	Required	ISLibrary	The `object` always implements the ISLibrary interface
`aIndex`	In, Required	int	The index of the sub-library

Restriction: This property is readonly.

Return Value

ISLibrary

Example

Display some information about 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 aDocs, aDoc
  Dim aInfo
  Dim i 
   
  set aDocs = aLibrary.GetDocuments 
  aInfo = Space(4 * aLevel) & aLibrary.Name &_
    " library (Children: " & aLibrary.Count & "; Documents: " & aDocs.Count & "): " & vbNewLine     
   
  for i = 0 to aDocs.Count - 1
    set aDoc = aDocs.Item(i)
    aInfo = aInfo & Space(4 * aLevel) & (i + 1) & ") " &_
      aDoc.Name & " (" & aDoc.TypeCode &  ")" & vbNewLine 
  next     
     
  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