Ejemplos usando el Api de windows para Visual basic

29 - Api para obtener información sobre los Drives del sistema

Listar los Drives disponibles:

Con la función Api GetLogicalDrives se pueden listar los Drives disponibles

obtener unidades del sistema con el api

Código fuente en el formulario

'Función Api getLogicalDrives para recuperar 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 = "Drives disponibles: " For Cnt = 0 To 25 If (LDs And 2 ^ Cnt) <> 0 Then sDrives = sDrives + " " + Chr$(65 + Cnt) End If Next Cnt 'Mostramos las unidades MsgBox sDrives, vbInformation, "Drives del sistema" End Sub

Obtener el tipo de unidad con el Api GetDriveType

El Api GetDriveType es muy simple usarla, solo tenemos que pasarle un string que indica la unidad a la cual queremos obtener información. La función devuelve un Long con el valor que después consultaremos para saber el tipo o clase de unidad que se trata, por ejemplo una unidad de disco fija, removible, Cd-Rom etc...

vista del formulario de ejemplo

Obtener el tipo de unidad con el Api GetDriveType

Colocar un Text1, un Command1 y un Label1

Código fuente en el formulario

' 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

Enlaces relacionados

Buscar en Recursos vb