掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
CD-ROMが挿入されていない場合、それを促すメッセージを出すには？ (ID:145226)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
> PCによってCD-ROMのドライブが異なる場合にも対応したいです。 複数のドライブを持っている場合はどうしたいのでしょうか。 (すべてのドライブに CD-ROM を入れる必要があるのでしょうか?) また、その CD-ROM とは、どのような物でもよいのでしょうか? 特定のディスクのみを対象としたいのであれば、それはどのようにして 判定させたいのでしょうか? > なお、使用するバージョンはVB2008です。 たとえば……。 Dim q = From d In My.Computer.FileSystem.Drives _ Where d.DriveType = DriveType.CDRom If q.LongCount() = 0 Then MsgBox("このPCには光ディスク ドライブがありません", vbInformation) Else Dim list = q.Where(Function(d) d.IsReady).ToList() If list.Count = 0 Then MsgBox("いずれかのドライブに CD-ROM を入れてください。", vbInformation) Else '変数list に、準備のできているドライブの一覧が入っている End If End If
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.