Ejemplos usando el Api de windows para Visual basic

15- Obtener un String con las unidades del sistema - GetLogicalDrives

Ejemplo de la función Api GetLogicalDrives para obtener las unidades del sistema.

Esta función no tiene ningún parámetro y es muy fácil de usar, la misma retorna una cadena o string con todas las unidades de la Pc

Ejemplo :

Colocar un control Command1, para que al presionarlo se despliegue un MsgBox con los Drive

vista previa del mensaje con las unidades disponibles

Código fuente en un formulario :

'Función Api GetLogicalDrives Private Declare Function GetLogicalDrives Lib "kernel32" () As Long Private Sub Command1_Click() Dim Ret As Long Dim i As Long 'Esta variable va almacenando los drives Dim Las_Unidades As String Ret = GetLogicalDrives Las_Unidades = "Drives disponibles: " For i = 0 To 25 If (Ret And 2 ^ i) <> 0 Then Las_Unidades = Las_Unidades & " " + Chr$(65 + i) End If Next i 'Mostramos el String que contiene las unidades MsgBox Las_Unidades, vbInformation End Sub Private Sub Form_Load() Command1.Caption = " Obtener los Drives " End Sub

Enlaces relacionados

Buscar en Recursos vb