如果需要指定開啟某一光碟機方法如下 '首先宣告 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 '碟若要開啟G:碟只要用 mciSendString "open g:\ type cdaudio alias cd", vbNullString, 0&, 0& mciSendString "set cd door open", vbNullString, 0&, 0& mciSendString "close cd", vbNullString, 0&, 0& '若要關閉只要用 mciSendString "open g:\ type cdaudio alias cd", vbNullString, 0&, 0& mciSendString "set cd door closed", vbNullString, 0&, 0& mciSendString "close cd", vbNullString, 0&, 0& 不會用會用的話,歡迎來信

------
======================
昏睡~
不昏睡~
不由昏睡~