<html> <head> <meta content="text/html; charset=ISO-8859-1" http-equiv="Content-Type"> </head> <body bgcolor="#FFFFFF" text="#000000"> Martin , i use folowed BASIC code to make a "path" consitent , maybe  it helps ? public sElementnaam , sfotopath as string public oParameter as object sub addFotoPath() sRegisterPath = "/org.openoffice.OpmaakMacro.FotoPath/Parameters/" CreateRegistrySchemaPathIfNotPresent(sRegisterPath) aSettings = GetConfigSettings(sRegisterPath) sElementNaam = "FOTO" sParaNaam = "FotoPath" sParameter = "c:\test" call addParameter(aSettings, sParaNaam, sParaMeter) end sub sub getFotoPath     sRegisterPath = "/org.openoffice.OpmaakMacro.FotoPath/Parameters/"     aSettings = GetConfigSettings(sRegisterPath)     asElNames = aSettings.ElementNames     if aSettings.hasByName("FOTO") then     oParameter = aSettings.getByName("FOTO")      sFOTOpath = oParameter.getByName("ParameterString")    else    sFOTOpath = ""    endif end sub function GetConfigSettings(sRegisterPath as String) as Object 'Taken from DannyB Dim args(1) As new com.sun.star.beans.PropertyValue aConfProv = createUnoService("com.sun.star.configuration.ConfigurationProvider") args(1).Name = "nodepath" args(1).Value = sRegisterPath                args(0).Name = "EnableAsync" args(0).Value = false GetConfigSettings = aConfProv.createInstanceWithArguments("com.sun.star.configuration.ConfigurationUpdateAccess", args()) end function sub CreateRegistrySchemaPathIfNotPresent(sRegisterPath as String) oPathSettings = CreateUnoService( "com.sun.star.util.PathSettings" ) xray oPathSettings sPathConfig = oPathSettings.Work 'Config asPath1 = split(sRegisterPath, "/") sFullDotPath = asPath1(1) asPath2 = Split(sFullDotPath,".") sFolder = join(asPath2,"/") sRegistrySchemaPath = <a class="moz-txt-link-rfc2396E" href="file:///H:/">"file:///H:/"</a> & sFolder & ".xcs" sFileName = asPath2(UBound(asPath2)) sPackage = left(sFullDotPath, len(sFullDotPath)-len(sFileName)-1) oSFA = createUNOService ("com.sun.star.ucb.SimpleFileAccess") if not oSFA.exists(sRegistrySchemaPath) then 'See the chapter 15 of the dev guide for some explanation print sRegistrySchemaPath   oOutStream = oSFA.openFileWrite(sRegistrySchemaPath)   oOutText = createUNOService ("com.sun.star.io.TextOutputStream")   oOutText.setOutputStream(oOutStream)     oOutText.WriteString("<?xml version='1.0' encoding='UTF-8'?>" & Chr(10))   oOutText.WriteString("<oor:component-schema oor:name=""" & sFileName & """ oor:package=""" & sPackage & """ " )   oOutText.WriteString("xml:lang=""en-US"" xmlns:oor="<a class="moz-txt-link-rfc2396E" href="http://openoffice.org/2001/registry">"http://openoffice.org/2001/registry"</a>" " )   oOutText.WriteString("xmlns:xs="<a class="moz-txt-link-rfc2396E" href="http://www.w3.org/2001/XMLSchema">"http://www.w3.org/2001/XMLSchema"</a>" " )   oOutText.WriteString("xmlns:xsi="<a class="moz-txt-link-rfc2396E" href="http://www.w3.org/2001/XMLSchema-instance">"http://www.w3.org/2001/XMLSchema-instance"</a>">" & Chr(10))   oOutText.WriteString("<templates>" & Chr(10))   oOutText.WriteString("  <group oor:name=""Parameter"">" & Chr(10))   oOutText.WriteString("    <prop oor:name=""ParameterName"" oor:type=""xs:string""/>" & Chr(10))   oOutText.WriteString("    <prop oor:name=""ParameterString"" oor:type=""xs:string""/>" & Chr(10))   oOutText.WriteString("  </group>" & Chr(10))   oOutText.WriteString("</templates>" & Chr(10))   oOutText.WriteString("<component>" & Chr(10))   oOutText.WriteString("  <set oor:name=""Parameters"" oor:node-type=""Parameter""/>" & Chr(10))   oOutText.WriteString("</component>" & Chr(10))   oOutText.WriteString("</oor:component-schema>" & Chr(10))   oOutText.closeOutput()   oOutStream.closeOutput   endif end sub sub addParameter(aSettings as Object, ParameterName as String, ParameterString as String)   Dim arParameters1(0) As new com.sun.star.beans.PropertyValue   arParameters1(0).Name = ParameterName   arParameters1(0).Value = ParameterString   call setParameters(aSettings, arParameters1(0)) end sub function getParameterCount(aSettings as Object) as long getParameterCount = UBound(aSettings.ElementNames)+1 end function sub setParameters(aSettings as Object, aNewValue as Object)   if aSettings.hasbyName(sElementnaam) then 'print aNewvalue.name    oParameter = aSettings.createInstance()   oParameter.ParameterName = aNewValue.Name   oParameter.ParameterString = aNewValue.Value   aSettings.ReplaceByName(sElementNaam , oParameter)   aSettings.commitChanges()   else    oParameter =  aSettings.createInstance()   oParameter.ParameterName = aNewValue.Name   oParameter.ParameterString = aNewValue.Value     aSettings.insertByName(sElementNaam , oParameter)    aSettings.commitChanges()    endif   end sub <blockquote cite="mid:CAOEXP8h+Zmpu3fGcjyCiJtUr0AXpbZ-KF+mbeOYn8VROcfEvtQ@mail.gmail.com" type="cite">Hi everybody, I'm hacking the cross-platform filepicker (in fpicker/source/office). I added a "Places" (bookmarks) list on the left and I would like to save the entries that the user bookmarked . Cedric Bosdonnat told me to look at xcu and xcs files, but I'm a bit lost. I'm looking for a code sample where user's persistent configuration is manipulated (read and written) and/or anything that can be usefull, like search keywords, links to old threads in the mailing list, which would help me to identify some good practices (naming conventions, for instance). Cheers, Martin Richard <fieldset class="mimeAttachmentHeader"></fieldset> <pre wrap="">_______________________________________________ LibreOffice mailing list <a class="moz-txt-link-abbreviated" href="mailto:LibreOffice@lists.freedesktop.org">LibreOffice@lists.freedesktop.org</a> <a class="moz-txt-link-freetext" href="http://lists.freedesktop.org/mailman/listinfo/libreoffice">http://lists.freedesktop.org/mailman/listinfo/libreoffice</a> </pre> </blockquote> </body> </html>