VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板

　　　　　サンプル投稿用掲示板　　 VB2005 ～用トップページ　　 VB6.0 用トップページ

CD-ROMドライブとDVDドライブの区別(VB6.0) ( No.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