Detects the drive letter associated with the CD – ROM Drive

‘Description: Detects the drive letter associated with the CD – ROM Drive.

‘Private Declare Function GetDriveType Lib “kernel32” Alias “GetDriveTypeA” (ByVal nDrive As String) As Long
‘Private Declare Function GetLogicalDriveStrings Lib “kernel32” Alias “GetLogicalDriveStringsA” (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
‘Private Const DRIVE_REMOVABLE = 2
‘Private Const DRIVE_FIXED = 3
‘Private Const DRIVE_REMOTE = 4
‘Private Const DRIVE_CDROM = 5
‘Private Const DRIVE_RAMDISK = 6

‘Place the following code in under a command button or in a menu, etc…

Dim r&, allDrives$, JustOneDrive$, pos%, DriveType&
Dim CDfound As Integer
allDrives$ = Space$(64)
r& = GetLogicalDriveStrings(Len(allDrives$), allDrives$)
allDrives$ = Left$(allDrives$, r&)
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
label1 = “The CD-ROM drive on your system is drive ” & UCase$(JustOneDrive$)
Else: label1 = “No CD-ROM drives were detected on your system.”
End If

Leave a Reply

Fill in your details below or click an icon to log in: Logo

You are commenting using your account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s