https://bugs.documentfoundation.org/show_bug.cgi?id=104412

            Bug ID: 104412
           Summary: DirectoryNameoutofPath no longer works
           Product: LibreOffice
           Version: 5.4.0.0.alpha0+
          Hardware: x86-64 (AMD64)
                OS: Linux (All)
            Status: UNCONFIRMED
          Severity: normal
          Priority: medium
         Component: Writer
          Assignee: [email protected]
          Reporter: [email protected]

I use this code in a macro. 

sub GetFileName_001()

        Dim strDirectoryName as String

        If (Not GlobalScope.BasicLibraries.isLibraryLoaded("Tools")) Then
           GlobalScope.BasicLibraries.LoadLibrary("Tools")
        End If

        Msgbox (" Host file is " & ThisComponent.getURL())

        strDirectoryName = DirectoryNameoutofPath(ThisComponent.getURL(), "/")
& "/"

        MsgBox( "Host directory is " & strDirectoryName)

end sub


It fails at the step 

strDirectoryName = DirectoryNameoutofPath(ThisComponent.getURL(), "/") & "/"

with a message box with the text 

"BASIC runtime error.
Incorrect property value."


This is a recent problem. Possibly within the last two weeks.


Alex

-- 
You are receiving this mail because:
You are the assignee for the bug.
_______________________________________________
Libreoffice-bugs mailing list
[email protected]
https://lists.freedesktop.org/mailman/listinfo/libreoffice-bugs

Reply via email to