IsDriveReady - Returns whether a drive is ready

' Returns a boolean indicating whether a given drive is ready
' Example: check if the floppy disk drive is ready
'   Debug.WriteLine(IsDriveReady("a"))

Function IsDriveReady(ByVal driveLetter As String) As Boolean
    If driveLetter.Length = 1 Then driveLetter &= ":\"
    Dim drive As New System.IO.DirectoryInfo(driveLetter)
    Try
        ' if the drive is not ready, the following line will throw an IO 
        ' exception
        drive.GetDirectories()
        Return True
    Catch e As Exception
        Return False
    End Try
End Function