| 投稿日 | ： 2005/11/22(Tue) 18:40 |
| 投稿者 | ： 琴 |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: CD-ROMドライブとDVDドライブの区別 |
いなさん、GODさん、魔界の仮面弁士さん回答ありがとうございます。
＞いなさん
試してみましたがCD-ROMドライブ、DVDドライブともに5（CD-ROM）として認識してしまいました。
＞GODさん
同じく試してみましたが、DriveType、MediaType共にどちらも同じ値（5,11）で判別できませんでした。
確かにDVDドライブでもCDは読めるのですが、今回は媒体がDVDに変わってしまいます。
そのためCD-ROMドライブではDVDが読めないので判定が必要となりました。
もし両ドライブが共存しているとどちらがどちらか判らないので…。
＞魔界の仮面弁士さん
同様に試してみました。
無事DVDドライブであることが取得できました。以下確認に使ったコードです。
Dim Drv As String
Dim OK_Flg As Boolean
OK_Flg = False
Dim O As Object
For Each O In GetObject("winmgmts:\\.\root\cimv2").InstancesOf("Win32_CDROMDrive")
If O.Caption Like "*DVD*" Then
Drv = O.Drive
OK_Flg = True
Exit For
End If
Next
If OK_Flg = True Then
MsgBox Drv &"ドライブに１枚目のDVDをセットしてください"
Else
MsgBox "DVDドライブがありません"
Exit Sub
EndIf
〜以下データ読み込み処理
これでなんとかなりそうです。
お三方ともどうもありがとうございました。