ISLibrary.GetDocumentByName

Example

Display the full paths to the library documents by their names.

sub main
  Dim aDocumentName 
  Dim aLibrary
  Dim aMessage
  
  aDocumentName = InputBox("Enter document name:")
  if aDocumentName = "" then exit sub
    
  Set aLibrary = Profile.LoadRootLibrary
  aMessage = GetLibraryInfo(aLibrary, "", aDocumentName) 
  Profile.MsgBox (aMessage)    
end sub
     
function GetLibraryInfo(aLibrary, aPath, aDocumentName)
  Dim aFullPath
  Dim aDoc
  Dim aInfo
  Dim i
    
  if aPath <> "" then        
    aFullPath = aPath & "\" & aLibrary.Name
  else
    aFullPath = aLibrary.Name
  end if
        
  set aDoc = aLibrary.GetDocumentByName(aDocumentName)
  if not aDoc is nothing then
    aInfo = aFullPath & "\" & aDoc.Name
  else
    aInfo = ""  
  end if 
     
  for i = 0 to aLibrary.Count - 1
    aInfo = aInfo & vbNewLine & GetLibraryInfo(aLibrary.SubLibrary(i), aFullPath, aDocumentName)  
  next
  
  GetLibraryInfo = aInfo
end function