機能と数式 | VBA | セミナー | オンラインソフト | お問い合わせ | その他
Top > Excel > VBA > VBAのステートメント

ChDriveステートメント



ChDriveステートメント

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

解説
現在のドライブを変更します。
引数pathに2文字以上の文字列を指定した場合は、最初の1文字が示すドライブに変更します。
引数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



このエントリーをはてなブックマークに追加