https://bugs.freedesktop.org/show_bug.cgi?id=75407
Priority: medium
Bug ID: 75407
Assignee: [email protected]
Summary: "com.sun.star.util.PathSubstitution" do'nt retrieve
the installation path
Severity: normal
Classification: Unclassified
OS: All
Reporter: [email protected]
Hardware: Other
Status: UNCONFIRMED
Version: 4.2.1.1 rc
Component: BASIC
Product: LibreOffice
Try the bellow code.
I do'nt get the right path
I got : /opt/libreoffice4.2/program/.. instead of /opt/libreoffice4.2
Sub Essai
Print GetRepertoirePath("inst")
End Sub
Function GetRepertoirePath(sInstPath as String) as String 'donne le répertoire
correspondant
Dim oPathSubstSrv as Object
Dim sPath as String
sInstPath = "$("+sInstPath+")"
oPathSubstSrv = createUnoService("com.sun.star.util.PathSubstitution")
sPath = ConvertFromUrl(oPathSubstSrv.getSubstituteVariableValue(sInstPath))
GetRepertoirePath = sPath
End Function
--
You are receiving this mail because:
You are the assignee for the bug.
_______________________________________________
Libreoffice-bugs mailing list
[email protected]
http://lists.freedesktop.org/mailman/listinfo/libreoffice-bugs
