OpenOffice.org BasicでCurrent Working Directoryを得る

Tweet

Check

BaseのマクロからCalcのファイルを操作しようとしてCWD(Current Working Directory)を得られる関数を探しましたが見つからなかったので、検索していろいろ調べてなんとか作ったのがこれ。

Function Fn_GetCurrentDir() As String
Dim sPath As String
Dim sTmp  As String
Dim sTmp2 As String
Dim sTitle  As String
sTmp = ConvertFromURL(ThisDatabaseDocument.getLocation())
sTitle = ThisDatabaseDocument.getTitle()
sTmp2 = Left(sTmp, Len(sTmp) - Len(sTitle))
Fn_GetCurrentDir = Right(sTmp2, Len(sTmp2) )
End Function

参考1: OpenOffice.org Basic メモ
参考2: URL decode