ASP IsReady Property

DriveObject.IsReady

<%
dim fs,d,n
set fs=Server.CreateObject("Scripting.FileSystemObject")
set d=fs.GetDrive("a:")
n = "The " & d.DriveLetter
if d.IsReady=true then
  n=n & " drive is ready!"
else
  n=n & " drive is not ready!"
end if
Response.Write(n)
set d=nothing
set fs=nothing
%>

Output:

The A drive is not ready!