Enumerar las unidades logicas de nuestros discos

‘ 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

Leave a Reply

Your email address will not be published. Required fields are marked *


*

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>