White Tiger

カレントドライブを取得する方法

◆概要


このページは、Visual Basic 6.0でカレントドライブを取得する方法について記載しています。


カレントドライブを取得するには、CurDir 関数()を利用します。

◆Sample code


次の例は、カレントドライブを取得し、メッセージボックスに表示します。

Private Sub Command1_Click()
    Dim strCurrentDrive As String
    strCurrentDrive = Left(CurDir, 1)
    MsgBox "カレントドライブは " + strCurrentDrive + "です。"
End Sub

◆実行結果

Link