formació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