Hi,

I have a problem with the saving of a new basic library while OO is runing.

Oliver

' This will create a new Library in \user\basic\ with the files:
'
' Mylib\Module1.xba
' Mylib\script.xlb
' Mylib\dialog.xlb
'
' It seems, that the files are written to harddisk only at the time,
' OO is closed, cause I cannot find the files in the Windows-Explorer/
' with the SimpleFileAccess ...
'
' How can I force saving directly after creating ???

Sub CreateLibrary

    Dim oLib as Object
    Dim oLibContainer as Object
    Dim sLib as String
    
    Dim oFileAccess as Variant
    Dim oSettings as Object
    Dim oPathSettings as Object
    Dim mFolder() as String
    Dim sPath as String
    Dim sMsg as String
    Dim i as Integer

    sLib = "MyLib"

    oLibContainer = Globalscope.BasicLibraries
    If oLibContainer.hasByName(sLib) Then
        oLibContainer.removeLibrary(sLib)
    EndIf

    oLib = oLibContainer.createLibrary(sLib)
    oLib.insertByName("Module1", "REM *** TEST ***")
    
    oLibContainer = Globalscope.DialogLibraries
    If oLibContainer.hasByName(sLib) Then
        oLibContainer.removeLibrary(sLib)
    EndIf

    oLib = oLibContainer.createLibrary(sLib)

    ' try to get office path ...
    oSettings = createUnoService("com.sun.star.frame.Settings")
    oPathSettings = oSettings.getByName("PathSettings")
    sPath = oPathSettings.getPropertyValue("Basic")
    sPath = Mid(sPath, InStr(1, sPath, ";")+1, Len(sPath)) & "/" & sLib & "/"
    
    ' try to get the files ...
    oFileAccess = createUnoService("com.sun.star.ucb.SimpleFileAccess")
    If oFileAccess.exists(sPath) and oFileAccess.IsFolder(sPath) Then
        sMsg = ""
        mFolder() = oFileAccess.getFolderContents(sPath, False)
        for i = lbound(mFolder()) to uBound(mFolder())
            sMsg = sMsg & mFolder(i) & Chr(13)
        next i
        msgBox sMsg
    Else
        msgBox "Can't find files in " & sPath
    EndIf
End Sub