ChDrive

---

ChDriveステートメント

構文

ChDrive drive

引数pathには、変更するドライブ名を指定します。

解説

現在のドライブを変更します。

引数pathに２文字以上の文字列を指定した場合は、最初の１文字が示すドライブに変更します。

引数pathに、存在しないドライブ名を指定した場合は、エラーが発生します。

サンプル

次の例は、ユーザーが入力したドライブにカレントドライブを変更します。

Sub Sample()
    Dim drivename As String, msg As String
    msg = "現在のドライブは " & UCase(Left(CurDir, 1)) & " です。" & _
        "変更するドライブ名を入力してください"
    drivename = InputBox(msg)
    On Error Resume Next
    ChDrive (drivename)
    If Err = 0 Then
        MsgBox "現在のドライブを " & drivename & " に変更しました"
    Else
        MsgBox drivename & " は有効なドライブ名ではありません"
    End If
End Sub