CurDir Function

指定ドライブの現在のパスを示す文字列を返します。

This statement currently does not work as documented. See this issue for more information.

構文:

CurDir [(Text As String)]

戻り値:

文字列

パラメーター:

Text: 既存のドライブを示す文字列表式 (たとえば 1 番目のドライブの第 1 パーティションを指定するには「C」とします)。

ドライブを指定しないか文字長ゼロの空白文字列を指定した場合 ("")、CurDir は現在のドライブのパスを返します。有効なドライブ指定でない場合、ドライブが存在しない場合、CONFIG.SYS の Lastdrive ステートメントによる設定値を超えたドライブレターの場合、LibreOffice Basic はエラーを報告します。

この関数の引数では、大文字と小文字は区別されません。

Error codes:

5 無効なプロシージャー呼び出しです

68 デバイスが使用できません

7 メモリー不足です

51 内部エラーが発生しました

例:

Sub ExampleCurDir

Dim sDir1 As String , sDir2 As String

    sDir1 = "c:\Test"

    sDir2 = "d:\Private"

    ChDir( sDir1 )

    MsgBox CurDir

    ChDir( sDir2 )

    MsgBox CurDir

End Sub