• Home
 · 
• Miscellaneous
 · 
• Get First CD Drive

Get First CD Drive

Get First CD Drive

Rate Get First CD Drive

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As DRIVE_TYPE

    Private Enum DRIVE_TYPE As Integer
        DRIVE_CDROM = 5
        DRIVE_FIXED = 3
        DRIVE_NO_ROOT_DIR = 1
        DRIVE_RAMDISK = 6
        DRIVE_REMOTE = 4
        DRIVE_REMOVABLE = 2
        DRIVE_UNKNOWN = 0
    End Enum

    Public Function GetCDDrive()
        Dim LogicalDrives() As String = Directory.GetLogicalDrives
        Dim Drive As String
        For Each Drive In LogicalDrives
            If GetDriveType(Drive) = DRIVE_TYPE.DRIVE_CDROM Then
                Return (Drive)
            End If
        Next
    End Function