Re: read and set the option "Save URLs relative to file system"

[Jörg Schmidt]

Hello,

Thank you Regina, Thank you Tsutomu.

The following works:

Sub einstellung_pruefen()
        'Speichereinstellung prüfen
        Dim sNodePath As String
        Dim oCP, oCUA
        sNodePath = "/org.openoffice.Office.Common/Save/URL"
        Dim aProps(0) As New com.sun.star.beans.PropertyValue
        oCP = 
CreateUnoService("com.sun.star.configuration.ConfigurationProvider")
        aProps(0).Name = "nodepath"
        aProps(0).Value = sNodePath
        oCUA = 
oCP.createInstanceWithArguments("com.sun.star.configuration.ConfigurationAccess",
 aProps)
        If oCUA.FileSystem = False OR oCUA.FileSystem = False Then
                        config_warnung = CHR(13) & CHR(13) & "ACHTUNG:" & 
CHR(13) & "überprüfen Sie die Einstellungen " & _
                                CHR(34) & 
"Extras-Optionen-Laden/Speichern-Allgemein --> URLs relativ..." & CHR(34)
                Else
                        config_warnung = ""
        End If
End Sub



Greetings,
Jörg   


---------------------------------------------------------------------
To unsubscribe, e-mail: api-unsubscr...@openoffice.apache.org
For additional commands, e-mail: api-h...@openoffice.apache.org