カレントドライブを取得する【CurDir関数】【ExcelVBA】

構文

CurDir （drive）

CurDir関数は指定ドライブの現在のフォルダを取得します。
現在のカレントドライブは　CurDir　で取得可能です。(カレントフォルダも含め取得)

ChDriveステートメントのサンプルコード

Public Sub sample()
    '■"カレントフォルダを取得
    Debug.Print CurDir          'C:\Users\Documents
    Debug.Print CurDir("")      'C:\Users\Documents

    '■Cドライブのフォルダを取得する
    Debug.Print CurDir("C")     'C:\Users\Documents
    
    '■Dドライブのフォルダを取得する
    Debug.Print CurDir("D")     'D:\Excel\VBA

    '■存在しない文字列を指定すると実行時エラー '68':デバイスが準備されていません｡
    Debug.Print CurDir("Y")

End Sub

注意点

• カレントフォルダの「カレント」は「現在作業中」のという意味合いです。
• CurDir関数は指定したドライブのカレントフォルダを取得します。
• ExcelのデフォルトのカレントフォルダはDefaultFilePathプロパティで取得します。

関連記事

• ファイルまたはフォルダを抽出する【Dir関数】【ExcelVBA】
• フォルダを削除する【RmDirステートメント】【ExcelVBA】
• フォルダを作成する【MkDirステートメント】【ExcelVBA】
• カレントフォルダを変更する【ChDirステートメント】【ExcelVBA】
• カレントドライブを変更する【ChDriveステートメント】【ExcelVBA】