Obtener la unidad de CD Rom

[Craxer]

como obtengo la unidad de CD rom??
osea si es la C o la D.. o la comunente E...
gracias

[ziBboh]

Puedes ser un poco mas claro?

Si lo que quieres es obtener datos acerca de la unidad y eso, intenta en el Registro - HKEY_LOCAL_MAC HINE\HARDWARE creo que ahi encontraras informacion.

[crypto136]

como estas Craxer aqui esta lo que buscas:

Código:

' Función Api GetDriveType para obtener el tipo de unidad
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" _
(ByVal nDrive As String) As Long
'Función Api getLogicalDrives para ver las unidades
Private Declare Function GetLogicalDrives Lib "kernel32" () As Long

Private Sub Command1_Click()
Dim LDs As Long, Cnt As Long, sDrives As String
LDs = GetLogicalDrives
sDrives = ""
   For Cnt = 0 To 25
        If (LDs And 2 ^ Cnt) <> 0 Then
            sDrives = sDrives + Chr$(65 + Cnt)
        End If
   Next Cnt
Text1.Text = sDrives 'Guardamos las unidades listadas en el TextBox
Dim textoaux As String
Texto = ""
TextoAux1 = Text1.Text
For I = 1 To Len(TextoAux1)
    Text1.SelStart = I - 1
    Text1.SelLength = 1
    textoaux = Text1.SelText & ":"
' Llamamos a la función pasandole la unidad que queremos obtener la información
    Select Case GetDriveType(Trim(textoaux))
        Case 2
            On Error Resume Next
            ' Unidad de tipo removible, por ejemplo la unidad A:
            MsgBox "Unidad removible " & textoaux
        Case 3
            ' Por ejemplo un disco duro
            MsgBox "Unidad Fija " & textoaux
        Case Is = 4
            ' Una unidad de red
            MsgBox "Unidad remota " & textoaux
        Case Is = 5
            'Unidad de Cd - Dvd
            MsgBox "Unidad de Cd-Rom " & textoaux
        Case Is = 6
            ' Para una unidad de dsico Virtual
            MsgBox "Unidad virtual " & textoaux
        Case Else
            'Cuando es desconocida
            MsgBox "Unidad no reconocida" & textoaux
    End Select
Next I
End Sub