磁盘未准备好

最新推荐文章于 2019-06-14 08:13:17 发布

tanshi

最新推荐文章于 2019-06-14 08:13:17 发布

阅读量2.9k

点赞数

分类专栏：初识ASP 文章标签：磁盘 vbscript microsoft each border server

本文链接：https://blog.csdn.net/tanshi/article/details/5594360

版权

初识ASP 专栏收录该内容

14 篇文章 0 订阅

订阅专栏

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <head> <title>驱动器操作实例</title> </head> <body> <div align="center"> <% dim fso dim d set fso=Server.CreateObject("Scripting.FileSystemObject") %> <table align="center" border="1" cellspacing="0" width="80%"> <caption> <b> 本地计算机驱动器列表（共<%=fso.Drives.Count %>个</b></caption> <tr bgcolor="#00CC33" > <th>驱动器</th> <th> 总空间</th><th> 可用空间</th> <% for Each d in fso.Drives %> <tr><td><% =d.DriveLetter %> 盘 </td> <td> <% = d.TotalSize %> 字节 </td> <td> <% =d.AvailableSpace %> 字节 </td> <% Next %> </div> </body> </html>

======================================================

这段代码让我纠结了半天，总是提示“Server 对象, ASP 0177 (0x800401F3)无效

去网上一顿狂搜后发现是没注册FSO组件，又去网上下了个scrrun.dll

注消FSO组件：RegSvr32 /u %windir%/SYSTEM32/scrrun.dll
启用FSO命令：RegSvr32 %windir%/SYSTEM32/scrrun.dll

折腾了半天，iis浏览居然又提示我

"Microsoft VBScript 运行时错误 (0x800A0047) 磁盘没有准备好"！！

崩溃的边缘~~~~~~

气愤的关了电脑，和同学出去转了一下午

======================================================

回来又想起这个问题，翻了翻书，发现有个IsReady属性

兴奋的打开电脑，为For循环加了判断

<% for Each d in fso.Drives %> <% IF d.IsReady Then %> <tr><td><% =d.DriveLetter %> 盘 </td> <td> <% = d.TotalSize %> 字节 </td> <td> <% =d.AvailableSpace %> 字节 </td> <% End IF %> <% Next %>

可爱的IE终于给我列出了结果

=====================================================

但新问题又出现了，既然该之前出错，肯定是在For循环时IsReady为FALSE

判断也是加在For循环里，循环过程中IsReady也应为FALSE才对，那为什么还能输出结果？？？？

纠结啊纠结~~~~~~~~~~~~~~~~~