Binaryworld - IsDriveReady - Returns whether a drive is ready ... [ VB.net -> Files & Folder ]

' 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