Try:
Public Enum DriveType As Integer
Unknown = 0
NoRoot = 1
Removable = 2
Localdisk = 3
Network = 4
CD = 5
RAMDrive = 6
End Enum
<DllImport("kernel32.dll", CharSet := CharSet.Auto)> _
Public Shared Function GetDriveType(lpRootPathName As String) As Integer
End Function
Private Shared Sub Main(args As String())
Console.WriteLine("Started")
Dim drives As String() = Directory.GetLogicalDrives()
For Each drive As String In drives
Dim type As DriveType = CType(GetDriveType(drive), DriveType)
Console.WriteLine(drive & " is a " & type.ToString())
Next
Console.WriteLine("Stopped")
Console.ReadLine()
End Sub