Mozilla プロファイル 
Mozilla、Firefox、Thunderbird のプロファイルを探します。com.sun.star.mozilla.MozillaBootstrap サービスを使用します。
プロファイルの検索 
Thunderbird のプロファイルを検索、一覧とパスを表示します。
プロファイルの検索には com.sun.star.mozilla.XProfileDiscover インターフェースを使用します。
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
|
com.sun.star.mozilla.MozillaProductType は以下のものが利用できます。
com.sun.star.mozilla.MozillaProductType |
Default | 0 | |
Mozilla | 1 | |
Firefox | 2 | |
Thunderbird | 3 | |