OOoBasic/Generic/MozillaProfile

  0
  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30

Sub MozillaProfile
  nMozType = com.sun.star.mozilla.MozillaProductType
  
  oMozBootstrap = CreateUnoService("com.sun.star.mozilla.MozillaBootstrap")
  
  nProductType = nMozType.Thunderbird
  
  sTxt = FindProfile( oMozBootstrap, nProductType )
  
  msgbox "Thunderbird:" & chr(10) & sTxt
End Sub
 
 
Function FindProfile( oBootstrap As Object, nType )
  Dim sList() As String
  sLF = chr(10)
  sTxt = ""
  
  sDefault = oBootstrap.getDefaultProfile(nType)
  sTxt = "Default profile: " & sDefault & sLF
  
  oBootstrap.getProfileList(nType, sList)
  
  sTxt = sTxt & "Profiles:" & sLF
  For i = 0 To UBound(sList) step 1
    sTxt = sTxt & sList(i) & ": " & _
        oBootstrap.getProfilePath(nType, sList(i)) & sLF
  Next
  
  FindProfile = sTxt
End Function