‘ En respuesta a la pregunta de como enumerar las unidades
‘ Logicas de nuestros discos desde el prompt de DOS, os
‘ dejo este ejemplo utilizando el espacio de nombres
‘ My.Computer.Filesystem, en Vb9 y Linq
‘ Una vez compilado el proyecto, puede incluirse
‘ en el archivo de proceso o ‘Batch’ segun necesidad.
‘
‘
‘ Listar las unidades logicas del Equipo
Module Module1
Sub Main()
‘ Obtener todas las unidades logicas de mi equipo
Dim MisUnidades = From Unidad In My.Computer.FileSystem.Drives _
Select Unidad.Name
‘ Componer la informacion que visualizare de mis unidades
Dim InfoUnidad = From info In MisUnidades _
Select Unidad = My.Computer.FileSystem.GetDriveInfo(info).Name,
Volumen = My.Computer.FileSystem.GetDriveInfo(info).VolumeLabel(), _
Tipo = My.Computer.FileSystem.GetDriveInfo(info).DriveType, _
Espacio = My.Computer.FileSystem.GetDriveInfo(info).AvailableFreeSpace
Try
For Each Info In InfoUnidad
‘listar la informacion obtenida
Console.WriteLine(Info)
Next
Catch ex As Exception
‘despreciar la informacion de las unidades que no estan a punto
End Try
‘ esperar a que se pulse return
Console.ReadLine()
End Sub
End Module