проблема двух cd-rom' ов

[Aster]

У меня два cd-rom и если воспользоваться этим кодом:

Код: Выделить всё

Private Declare Function mciSendString Lib "winmm.dll" Alias _
"mciSendStringA" (ByVal lpstrCommand As String, _
ByVal lpstrReturnString As String, ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long


Private Sub Command1_Click()
   mciSendString "Set CDAudio Door Open Wait", 0&, 0&, 0&
End Sub


открывается только один cd-rom , как сделать так чтобы можно было открыть как один cd так и другой?

[tyomitch]

С помощью поиска по форуму.

[skord]

Способ WMP + FSO

Код: Выделить всё

Dim fso As New FileSystemObject
Dim mp As New WindowsMediaPlayer
Dim i, drive

Private Sub Form_Load()
i = -1
For Each Drive In fso.Drives
    If Drive.DriveType = 4 Then
        i = i + 1
        mp.cdromCollection.Item(i).eject
    End If
Next
End Sub