JLS2001 Level: Guest

|
Ejecting CD from multiple drives Archived to Disk
I have a DVD drive (E:) and a CDRW drive (F:). The code below, like most code I've seen, only opens the DVD. Is there some way to specify which drive I want to open?
Dim i As Long, RS As String, cb As Long, id As Long
RS = Space$(128)
i = mciSendString("open cdaudio", RS, 128, cb)
id = mciGetDeviceID("cdaudio")
i = mciSendCommand(id, MCI_SET, MCI_SET_DOOR_OPEN, 0)
Thanks,
John
|