| 投稿日 | ： 2005/11/22(Tue) 17:20 |
| 投稿者 | ： 魔界の仮面弁士 |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: CD-ROMドライブとDVDドライブの区別 |
> OS:Windows2000以上 Ver:VB6
> エンドユーザの環境は不定のため
OSのバージョンだけは確定しているのでしょうか?
とりあえず、手抜き実装。
Dim O As Object
For Each O In GetObject("winmgmts:\\.\root\cimv2").InstancesOf("Win32_CDROMDrive")
Debug.Print "ドライブ="; O.Drive
Debug.Print , "DVD読込="; O.Caption Like "*DVD*"
Debug.Print , "CD書込="; O.Caption Like "*RW*"
Next