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

前提・実現したいこと

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

該当のソースコード

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

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

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

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

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

行動規範の内容に同意します

回答1件

ベストアンサー

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

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

投稿2021/12/12 11:13

takasima20

総合スコア7460

pfqywb8w

2021/12/12 11:40

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

takasima20

2021/12/12 14:51

(･∀･)b

行動規範の内容に同意します

あなたの回答

tips

プレビュー

行動規範の内容に同意します

質問の解決につながる回答をしましょう。サンプルコードなど、より具体的な説明があると質問者の理解の助けになります。また、読む側のことを考えた、分かりやすい文章を心がけましょう。

15分調べてもわからないことは
teratailで質問しよう！

ただいまの回答率
85.46%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう！