请教高手 怎么可以得到本机上光驱的分区号 就是(A,C,D,E,F,G...)中的那一个

Question

Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As LongPrivate Sub Command1_Click()'函数返回值:
'0:  未知驱动器
'1:  软驱等可移动驱动器
'2:  固定驱动器
'3:  网络驱动器
'4:  光驱
'5:  RAM驱动器
Dim DrvNum As Integer: Dim DrvVal As Long: Dim DrvCode As String
    For DrvNum = 0 To 25
        DrvVal = GetDriveType(Chr(DrvNum + 65) + ":") '依次对A-Z进行检测
        If DrvVal = 5 Then
            DrvCode = Chr$(DrvNum + 65)
            CD_Check = DrvCode
        End If
    Next
    MsgBox "光驱" & DrvCode
End Sub