' 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