サンプル投稿用掲示板 VB2005 〜 用トップページ VB6.0 用 トップページ
- 日時： 2007/07/27 12:28
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[ドライブ][周辺機器][] *
* キーワード：CD-ROM,DVD,,,, *
***********************************************************************************
元質問：CD-ROMドライブとDVDドライブの区別 - 琴 2005/11/22-16:09 No.5061
エンドユーザの環境は不定のためCD-ROMドライブとDVDドライブが共存している場合も
あると思うのですが、CD-ROMドライブとDVDドライブを区別する方法が判りません。
何かいい方法がありましたら教えてください。
-----------------------------------------------------------------------------------
Re: CD-ROMドライブとDVDドライブの区別 - 魔界の仮面弁士 2005/11/22-17:20 No.5066
-----------------------------------------------------------------------------------
とりあえず、手抜き実装。
Option Explicit
Private Sub Command1_Click()
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
End Sub
------------------------------------------------------------------------------
＞魔界の仮面弁士さん
無事DVDドライブであることが取得できました。以下確認に使ったコードです。
Option Explicit
Dim Drv As String
Dim OK_Flg As Boolean
Private Sub Command1_Click()
Dim O As Object
OK_Flg = False
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
End If
End Sub
 |
