Ejemplos usando el Api de windows para Visual basic

107 - GetDiskFreeSpaceEx

Volver al Listado Api - Anterior - Siguiente

Ejemplo que utiliza la función Api GetDiskFreeSpaceEx para obtener información sobre la capacidad de un disco y unidad

El ejemplo muestra como obtener la capacidad Total de un disco, el espacio utilizado y el espacio Libre.

La función Obtener_Info_Drive se le debe enviar la unidad a consultar, y la función retorna en un Type llamado T_Info con la información

Importante: el ejemplo, no comprueba si se envía una letra de unidad sin los 2 puntos, es decir esto no retornará nada

Call Obtener_Info_Drive( "C")

Colocar un control CommandButton, que al presionarlo abre un InputBox para especificar la unidad a recuperar la información.

Código fuente en un módulo bas

Option Explicit 'Constantes Const Kb As Double = 1024 Const Mb As Double = 1024 * Kb Const Gb As Double = 1024 * Mb Const Tb As Double = 1024 * Gb 'UDT que requiere el APi GetDiskFreeSpaceEx Private Type LARGE_INTEGER lowpart As Long highpart As Long End Type 'Estructura para utilizar con la función: Obtener_Info_Drive Type T_Info Capacidad As String Libre As String Usado As String End Type 'Declaración del API GetDiskFreeSpaceEx Private Declare Function GetDiskFreeSpaceEx Lib "kernel32" Alias "GetDiskFreeSpaceExA" _ (ByVal lpRootPathName As String, lpFreeBytesAvailableToCaller _ As LARGE_INTEGER, lpTotalNumberOfBytes As LARGE_INTEGER, _ lpTotalNumberOfFreeBytes As LARGE_INTEGER) As Long Private Function Entero_a_Double(l As Long, h As Long) As Double Dim ret As Double ret = h If h < 0 Then ret = ret + 2 ^ 32 ret = ret * 2 ^ 32 ret = ret + l If l < 0 Then ret = ret + 2 ^ 32 Entero_a_Double = ret End Function 'Función que formatea los datos Private Function Size(ByVal n_bytes As Double) As String If n_bytes < Kb Then Size = Format$(n_bytes) & " bytes" ElseIf n_bytes < Mb Then Size = Format$(n_bytes / Kb, "0.00") & " KB" ElseIf n_bytes < Gb Then Size = Format$(n_bytes / Mb, "0.00") & " MB" Else Size = Format$(n_bytes / Gb, "0.00") & " GB" End If End Function 'función que retorna el espacio libre, usado y el espacio total de un disco - unidad Function Obtener_Info_Drive(Drive As String) As T_Info On Error GoTo errSub ' Dim Avalables As LARGE_INTEGER, Total As LARGE_INTEGER Dim Libres As LARGE_INTEGER, dTotal As Double, dLibre As Double 'Llamada al api para retornar los valores Call GetDiskFreeSpaceEx(Drive, Avalables, Total, Libres) 'Conversión dTotal = Entero_a_Double(Total.lowpart, Total.highpart) dLibre = Entero_a_Double(Libres.lowpart, Libres.highpart) 'retorna Obtener_Info_Drive.Capacidad = Size(dTotal) Obtener_Info_Drive.Libre = Size(dLibre) Obtener_Info_Drive.Usado = Size(dTotal - dLibre) Exit Function 'Error errSub: MsgBox Err.Description, vbCritical End Function

Código fuente en un formulario:

Private Sub Command1_Click() Dim unidad As String 'La unidad debe pasarse con los :, por ejemplo c: o c:\ unidad = InputBox(" Ingrese la letra de la unidad ", _ " Averiguar espacio libre, utilizado y capacidad ") If unidad = vbNullString Then Exit Sub Dim Informacion As T_Info 'Obtenemos la información Informacion = Obtener_Info_Drive(unidad) 'resultado 'Capacidad del disco MsgBox "Capacidad de la unidad: " & Informacion.Capacidad 'Espacio Libre MsgBox " Espacio Libre de la unidad: " & Informacion.Libre 'Espacio usado MsgBox " Espacio Utilizado de la unidad" & Informacion.Usado End Sub Private Sub Form_Load() Command1.Caption = " Indicar unidad " End Sub

VB 6.0 - Enlaces Relacionados

VB.NET - Relacionados

My.Computer.Info - Obtener Datos de la memoria

Buscar en Recursos vb