' 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 TryEnd Function