' Collection of code snippets by Arne Vajhøj ' posted to eksperten.dk, usenet and other places (2002-now) Imports System Imports System.IO Namespace E Public Class Program Public Shared Sub Main(args As String()) For c As Integer = AscW("A") To AscW("F") Dim drive As String = ChrW(c) & ":" Dim di As New DriveInfo(drive) Console.WriteLine(drive & " - " & di.DriveType.ToString()) Next End Sub End Class End Namespace