出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
VBなんですけど 　 ザクレロさん [2002/02/25 18:41:51] [1738]
　 Re:VBなんですけど 　 北岳さん [2002/02/26 9:55:14] [1739]
[1738] VBなんですけど
投稿者：ザクレロさん 2002/02/25 18:41:51
VBでMOドライブにメディアが入っているかの認識を
行いたいんですけど、EXEを動かす
端末によって認識したり認識しなかったりします。

strDriveName = "D:\" ←MOのドライブ

Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(strDriveName)

If Not d.isready Then
MSGBOX　"ドライブの準備ができていません"
　　end if

MOディスクを入れている時はしっかり認識して読み込めます。
MOディスクが入っていない場合にエラーメッセージを出すように
しているんですけど、そのまま応答なしになってしまう端末が
あります。どなたか教えていただけないでしょうか？？
もし他の方法があるのならそちらのほうも教えてください。
よろしくお願いします。
[1739] Re:VBなんですけど
投稿者：北岳さん 2002/02/26 9:55:14
VBでは確認していませんが、
2000proのデスクトップに次のWSHを置いて実行。
f:はDVDで、ディスクを入れない状態。
　
------------1.vbs-----------
strDriveName = "f:\"
'on error resume next
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(strDriveName) '行a
'msgbox(Err.description)
If Not d.isready Then
MSGBOX("ドライブの準備ができていません")
end if
msgbox("終了")
-----------------------------
　
このままでは、ハングにはなりませんでしたが行aで
「VBScript実行時エラー：このデバイスは使用できません。」
のメッセージとともに強制終了。
　
上の２つのコメントマークを外したら、3つのメッセージが連続表示されて無事終了。
「このデバイスは使用できません。」
「ドライブの準備ができていません」
「終了」
　
VBでも、resume nextで逃げられそうですが。

TreeBBS For ASP V.0.1.3
Program By ＹａｓＮｅｔ