ファイル選択ダイアログでファイルのフルパスを取得 LibreOffice Calc Basic

ファイル選択ダイアログでファイルのフルパスを取得　LibreOffice Calc Basic

いつも参考にしている、Macroの杜さまのサイトのコードを拝借して、実験した

Sub oFileOpenDialog()
'
'ファイル選択ダイアログを開いて、選択ファイルのパスを表示
' 参考サイト　ttp://openoffice3.web.fc2.com/OOoBasic_General.html#OOoGGBPh02a
Dim oFP as Object
Dim oAccept As Integer
Dim oGetAFileName as String, oFileName as String
Dim oDisp as String
    oFP = CreateUnoService("com.sun.star.ui.dialogs.FilePicker")
'ファイル選択ダイアログが開く
    oAccept = oFP.Execute()
   
        If oAccept = 1 then 'Canncelの場合 iAccept <> 1
            oGetAFileName = oFP.Files(0)   'file:///home/telstar/デスクトップ/1.ogv
            oFileName = ConvertFromUrl(oGetAFileName)  '/home/telstar/デスクトップ/1.ogv
        End If
'msgbox 表示用       
    oDisp = "選択したfile名は" & Chr$(10) & "「　" & oFileName　& "　」" & Chr$(10) & "ですね。"
        Msgbox(oDisp, 0, "FilePicker")
 
End Sub