Detectar las unidades de disco disponibles.

Esta función devuelve en un string (separados por espacio) las unidades de disco que tiene en el sistema, incluso las unidades de red.

Option Explicit
Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, _
             ByVal lpBuffer As String) As Long

Private Sub Form_Load()
    Dim AllDrives As String, Res As Long
   
    ' Se rellena el Buffer con espacios en blanco
    AllDrives = Space$(250)
    
    ' Se recoge el string con la función
    Res = GetLogicalDriveStrings(Len(AllDrives), AllDrives)
    
    ' Res nos informa de la longitud del buffer insertado
    AllDrives = Left$(AllDrives, Res)

    ' Se muestra el resultado en la pantalla de Depuración
    Debug.Print AllDrives    
End Sub
Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google photo

Estás comentando usando tu cuenta de Google. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s