Abrir pasta para mostrar os arquivos, e eu escolher

[schiavinatto]

Tenho esta macro que salva o arquivo ARQ, que esta no Diretório FOLDER, que estão em células. OK

Sub SaveFileFolderCel
' PEGAR NOME PASTA
	CELL_PASTA = "INICIO.BR5"
    FOLDER = ThisComponent.CurrentController.ActiveSheet.getCellRangeByName(CELL_PASTA)
' PEGAR NOME ARQUIVO 
    CELL_ARQ = "INICIO.BR6"
    ARQ = ThisComponent.CurrentController.ActiveSheet.getCellRangeByName(CELL_ARQ)
' SALVAR
    path = ConvertToURL(FOLDER.String + "\" + ARQ.String + ".ods")
    msgbox path
    ThisComponent.storeToURL(path, Array())
End Sub

Necessito somente de abrir o Diretório, para eu escolher qual arquivo abrir, alguém pode me ajudar, obrigado .

[Jedison]

Ah, era isso que você queria?

Dá pra fazer assim:

GlobalScope.BasicLibraries.LoadLibrary("Tools")
URL = ThisComponent.getURL()
Caminho = ConvertFromUrl(DirectoryNameoutofPath(URL, "/") )

' Abrir a PASTA no Explorador de Arquivos do Windows
Shell "Explorer /n," + Caminho, vbNormalFocus

Como eu disse antes, talvez seja desnecessária a primeira linha.
Boa sorte.

[schiavinatto]

Ola @Jedison, valeu a altenativa.

[schiavinatto]

Ops, encontrei a solução:

Sub AbrirPasta
' PEGAR NOME PASTA
	CELL_PASTA = "INICIO.BR5"
    FOLDER = ThisComponent.CurrentController.ActiveSheet.getCellRangeByName(CELL_PASTA)
Shell "explorer /n," + FOLDER.String, vbNormalFocus
End Sub

[bilufe]

Essa macro só funcionará se o usuário estiver usando Windows.
Infelizmente não sei programar para que seja multiplataforma.