VB.Net by API/System.IO/DriveInfo

DriveInfo.AvailableFreeSpace()

<source lang="vbnet"> Imports System Imports System.IO

Public Class MainClass

  Shared Sub Main()
       For Each drive_info As DriveInfo In DriveInfo.GetDrives()
           Console.Write(drive_info.Name & "   " )
           Console.WriteLine(drive_info.RootDirectory.ToString)
           If drive_info.IsReady() Then
               Console.WriteLine( drive_info.AvailableFreeSpace().ToString)
           End If
       Next drive_info
  End Sub 

End Class

 </source>

DriveInfo.DriveFormat()

<source lang="vbnet"> Imports System Imports System.IO

Public Class MainClass

  Shared Sub Main()
       For Each drive_info As DriveInfo In DriveInfo.GetDrives()
           Console.Write(drive_info.Name & "   " )
           Console.WriteLine(drive_info.RootDirectory.ToString)
           If drive_info.IsReady() Then
               Console.WriteLine( drive_info.DriveFormat())
           End If
       Next drive_info
  End Sub 

End Class

 </source>

DriveInfo.DriveType()

<source lang="vbnet"> Imports System Imports System.IO

Public Class MainClass

  Shared Sub Main()
       For Each drive_info As DriveInfo In DriveInfo.GetDrives()
           Console.Write(drive_info.Name & "   " )
           Console.WriteLine(drive_info.DriveType().ToString)
       Next drive_info
  End Sub 

End Class

 </source>

DriveInfo.GetDrives()

<source lang="vbnet"> Imports System Imports System.IO

Public Class MainClass

  Shared Sub Main()
       For Each drive_info As DriveInfo In DriveInfo.GetDrives()
           Console.WriteLine(drive_info.Name)
       Next drive_info
  End Sub 

End Class

 </source>

DriveInfo.IsReady()

<source lang="vbnet"> Imports System Imports System.IO

Public Class MainClass

  Shared Sub Main()
       For Each drive_info As DriveInfo In DriveInfo.GetDrives()
           Console.Write(drive_info.Name & "   " )
           Console.WriteLine(drive_info.IsReady().ToString)
       Next drive_info
  End Sub 

End Class

 </source>

DriveInfo.Name

<source lang="vbnet"> Imports System Imports System.IO

Public Class MainClass

  Shared Sub Main()
       For Each drive_info As DriveInfo In DriveInfo.GetDrives()
           Console.WriteLine(drive_info.Name)
       Next drive_info
  End Sub 

End Class

 </source>

DriveInfo.RootDirectory

<source lang="vbnet"> Imports System Imports System.IO

Public Class MainClass

  Shared Sub Main()
       For Each drive_info As DriveInfo In DriveInfo.GetDrives()
           Console.Write(drive_info.Name & "   " )
           Console.WriteLine(drive_info.RootDirectory.ToString)
       Next drive_info
  End Sub 

End Class

 </source>

DriveInfo.TotalFreeSpace()

<source lang="vbnet"> Imports System Imports System.IO

Public Class MainClass

  Shared Sub Main()
       For Each drive_info As DriveInfo In DriveInfo.GetDrives()
           Console.Write(drive_info.Name & "   " )
           Console.WriteLine(drive_info.RootDirectory.ToString)
           If drive_info.IsReady() Then
               Console.WriteLine( drive_info.TotalFreeSpace().ToString)
           End If
       Next drive_info
  End Sub 

End Class

 </source>

DriveInfo.VolumeLabel()

<source lang="vbnet"> Imports System Imports System.IO

Public Class MainClass

  Shared Sub Main()
       For Each drive_info As DriveInfo In DriveInfo.GetDrives()
           Console.Write(drive_info.Name & "   " )
           Console.WriteLine(drive_info.RootDirectory.ToString)
           If drive_info.IsReady() Then
               Console.WriteLine( drive_info.VolumeLabel())
           End If
       Next drive_info
  End Sub 

End Class

 </source>