' 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
Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.
