CodeItBetter Programming Another VB Programming Blog

'File/Folder Handling - How to check which Drive is CD Drive

Option Explicit
 
Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" _
    (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Public Const DRIVE_FIXED = 3
Public Const DRIVE_REMOTE = 4
Public Const DRIVE_CDROM = 5
Public Const DRIVE_RAMDISK = 6
 
'Insert the following code to your form:

Private Sub Main()
    Dim r&, allDrives$, JustOneDrive$, pos%, DriveType&
    Dim CDfound As Integer
    allDrives$ = Space$(64)
    r& = GetLogicalDriveStrings(Len(allDrives$), allDrives$)
    allDrives$ = Left$(allDrives$, r&)
    Do
        pos% = InStr(allDrives$, Chr$(0))
        If pos% Then
            JustOneDrive$ = Left$(allDrives$, pos%)
            allDrives$ = Mid$(allDrives$, pos% + 1, Len(allDrives$))
            DriveType& = GetDriveType(JustOneDrive$)
            If DriveType& = DRIVE_CDROM Then
                CDfound% = True
                Exit Do
            End If
        End If
    Loop Until allDrives$ = "" Or DriveType& = DRIVE_CDROM
    If CDfound% Then
        MsgBox "The CD-ROM drive on your system is drive " & UCase$(JustOneDrive$)
    Else: MsgBox "No CD-ROM drives were detected on your system."
    End If
End Sub