vbsで任意のドライブレターが割当て済みでない場合に続けて処理を行いたい

Question

前提・実現したいこと

題名の通り、vbsで任意のドライブレターが割当て済みでない場合に続けて処理を行いたいです。

該当のソースコード

set fso = CreateObject("Scripting.FileSystemObject")
If fso.GetDrive("C").IsReady = true Then Wscript.Echo "true"
If fso.GetDrive("D").IsReady = false Then Wscript.Echo "false"

発生している問題・エラーメッセージ

ドライブの準備の完了はIsReadyで判定できるとのことなので、上記の通り書いてみたのですが、Dドライブが割り当てられていない場合、3行目では以下のようなエラーが出力されます。

エラー: このデバイスは使用できません。
コード: 800A0044
ソース: Microsoft VBScript 実行時エラー

どのように改善すればよろしいでしょうか？初歩的な質問にて恐縮ですが、何卒よろしくお願い申し上げます。

Answer 1

この場合 GetDrive() でエラーになってんじゃないスかね。

DriveExists() を使ってみてはいかがでしょうか。
http://wsh.style-mods.net/ref_filesystemobject/driveexists.htm

Comments

[pfqywb8w]

ありがとうございます！まさに求めていた通りにできました。

[takasima20]

(･∀･)b