OpenCD

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

Public Sub OpenCD(driveletter As String)
Dim mssg As String * 255
Dim ReturnValue As Long
driveletter = driveletter & ":\"
ReturnValue = mciSendString("open " & driveletter & _
" Type cdaudio Alias cd", mssg, 255, 0)
ReturnValue = mciSendString("set cd door open", _
vbNullString, 0, 0)
ReturnValue = mciSendString("close cd", 0&, 0,0)
End Sub


Inputs:Drive Letter as String es.OpenCD(D)