como Diferenciar unidades

[Angel_Snaker]

Iniciado por erbuson

Mira en Recursos VB, en este enlace [URL="http://www.recursosvisualbasic.com.ar/htm/listado-api/api-29.htm"]Tipos de Unidades, ...[/URL]

Saludos

Como dije anteriormente me dice Unidad removible (o extraible) tanto a los CD como a los pen

yo necesito mostrar cuando una unidad es CD y Cuando es Pendrive

Código:

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

Private Sub Command1_Click()
' Llamamos a la función pasandole la unidad que queremos obtener la información
Select Case GetDriveType(Trim(Text1))
        Case 2
            ' Unidad de tipo removible, por ejemplo la unidad A:
            MsgBox "Unidad removible"
        Case 3
            ' Por ejemplo un disco duro
            MsgBox "Unidad Fija"
        Case Is = 4
            ' Una unidad de red
            MsgBox "Unidad remota"
        Case Is = 5
            'Unidad de Cd - Dvd
            MsgBox "Unidad de Cd-Rom"
        Case Is = 6
            ' Para una unidad de dsico Virtual
            MsgBox "Unidad virtual"
        Case Else
            'Cuando es desconocida
            MsgBox "Unidad no reconocida"
    End Select
End Sub

Gracias por la respuesta