ISProfile.LoadRootLibrary

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