请问怎么得到MO或CD-ROM的盘号？(得到LastDriver能实现吗？)

Question

Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Private Sub Form_Load()
    Me.AutoRedraw = True
    'Get information about the C:    Select Case GetDriveType("C:\")
        Case 2
            Me.Print "Removable"
        Case 3
            Me.Print "Drive Fixed"
        Case Is = 4
            Me.Print "Remote"
        Case Is = 5
            Me.Print "Cd-Rom"
        Case Is = 6
            Me.Print "Ram disk"
        Case Else
            Me.Print "Unrecognized"
    End Select
End Sub

Answer 1

感谢楼上的帮助，
这个方法我已经试了而且也能用，
但它只能说明有个"Removable"的驱动器，
也不能说明肯定是MO的！手动判断不是A：或不是B：也行，但这方法太那个了吧！我手头只有MO、CD-ROM，
没办法检测CD-RW或其它的东西显示的是什么！所以还有什么好方法吗？再次感谢！！