System IO VB.Net by API

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