9_1.asp

来自「《asp网页设计》作者沈才梁源代码,共十章」· ASP 代码 · 共 14 行

<%    			 '驱动器列表显示，创建一个文件系统对象实例FSO
set FSO =Server.CreateObject("Scripting.FileSystemObject")
For Each Drv in FSO.Drives
%>
<br>驱动器号：<%=Drv.DriveLetter%>
<%If Drv.IsReady then %>
  <br>总容量：<%=Drv.TotalSize%>
  <br>可用空间：<%=Drv.AvailableSpace%>
<%Else%>
  驱动器没有准备就绪！  
<%End If%>
<hr>
<%Next%>