Sección de ejemplos vb.net

25 - Información de los drives del sistema

Ejemplo en visual basic.net que usa el método GetDrives del objeto DriveInfo para obtener información de las unidades disoponibles

(El espacio libre, usado, el tipo de drive, el sistema de archivos etc.. )

Código fuente

Nota: el resultado se visualiza en la ventana inmediato de vb

Option Explicit On Option Strict On Imports System.IO Public Class Form1 Private Sub Form1_Load( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load ' variable para la referencia a los Drives Dim Drives As DriveInfo Try ' recorre todos los Drives en la colección con el método GetDrives For Each Drives In DriveInfo.GetDrives With Drives ' si se se puede acceder .. lista la información en la ventana inmediato If .IsReady = True Then Debug.Print("Drive: " & .Name.ToString) Debug.Print("Bytes libres: " & .AvailableFreeSpace.ToString) Debug.Print("Capacidad: " & .TotalSize.ToString) Debug.Print("Espacio utilizado: " & .TotalSize - .AvailableFreeSpace) Debug.Print("Volumen: " & .VolumeLabel.ToString) Debug.Print("Sistema de archivos: " & .DriveFormat.ToString) ' El tipo de DRIVE : NETWORK, FIJO, CD-ROM etc... Debug.Print("Tipo de Drive: " & .DriveType.ToString) Debug.Print("----------------------------------- >>") End If End With Next Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Critical) End Try End Sub End Class

Nota: en el siguiente link, hay un código de ejemplo para poder cargar los drive del sistema en un control combobox usando getDrives, y también cargar los íconos o imágenes para cada unidad : ImageCombo en .net

Recursos visual basic 6.0

Obtener información de drives usando FSO en vb6

Buscar en Recursos vb