How to get the cdrom drive letter.

I'm looking for a function or method to get the letter of the cdrom drive..
Is there any function or entry in the register??
Who is Participating?
alamoConnect With a Mentor Commented:
I assume you mean for Win95 or NT.

This function returns the CDROM drive letter, or "" if none found:

Private Declare Function GetDriveType Lib "kernel32" Alias _
     "GetDriveTypeA" (ByVal sDrive As String) As Long
Private Const DRIVE_CDROM = 5

Public Function GetCDRomDrive() As String
 Dim i As Integer
 Dim sDrive As String
 GetCDRomDrive = ""      ' in case none found
 For i = 0 To 25
  sDrive = Chr$(i + 64)
  If GetDriveType(sDrive & ":\") = DRIVE_CDROM Then
   GetCDRomDrive = sDrive
   Exit For
  End If
End Function

Hope this helps, good luck!
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.