驅(qū)動(dòng)器是否已就緒？

代碼：

<!DOCTYPE html>


<html>


<body>


 


<%


dim fs,d,n


set fs=Server.CreateObject("Scripting.FileSystemObject")


set d=fs.GetDrive("c:")


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


%>


 


</body>


</html>

結(jié)果：

The C drive is ready.

相關(guān)文章
亚洲国产精品第一区二区，久久免费视频77，99V久久综合狠狠综合久久，国产免费久久九九免费视频