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

ご支援をお願いします!