現在のドライブのパスを取得するには、CurDir関数を使用します。

Sub Sample()
    
    MsgBox CurDir

End Sub

　上記のマクロを実行すると、メッセージボックスに現在のドライブのパスが
表示されます。

　CurDir関数には、ドライブを指定することができるので、次のように
指定したドライブの現在のパスを取得する事も可能です。

Sub Sample()
    
    MsgBox CurDir("D")

End Sub