[ドライブが存在しているか確認する]

引数で指定されたドライブが存在するか確認します。

【ソースコード】

[tips0074.vbs]
Option Explicit
On Error Resume Next

Dim objFSO      ' FileSystemObject
Dim strDrive    ' ドライブ名
Dim strMessage  ' 表示用メッセージ

strDrive = WScript.Arguments.Item(0)
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
If Err.Number = 0 Then
    strMessage = "ドライブ " & strDrive & " は"
    If objFSO.DriveExists(strDrive) Then
        strMessage = strMessage & "存在します。"
    Else
        strMessage = strMessage & "存在しません。"
    End If
    WScript.Echo strMessage
Else
    WScript.Echo "エラー: " & Err.Description
End If

Set objFSO = Nothing

【実行結果】

C:\> cscript //NoLogo tips0074.vbs c
ドライブcは存在します。
C:\temp\vbs>cscript //NoLogo test.vbs z
ドライブzは存在しません。