' 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