投稿日 | : 2005/11/22(Tue) 19:26 |
投稿者 | : 魔界の仮面弁士 |
Eメール | : |
URL | : |
タイトル | : Re^2: CD-ROMドライブとDVDドライブの区別 |
こんな書き方もあります。
Drv = ""
Q = "SELECT Drive FROM Win32_CDROMDrive WHERE Caption Like '%DVD%'"
For Each O In GetObject("winmgmts:\\.\root\cimv2").ExecQuery(Q)
Drv = O.Drive
Exit For
Next
If Drv = "" Then
MsgBox "DVDドライブがありません"
Else
MsgBox Drv & "ドライブに1枚目のDVDをセットしてください"
End If