目次
索引 🔎︎

# 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