实例（drive/1.asp)：列出当前计算机上所有驱动器的驱动器号、总字节数和可用字节数，其代码如下：
<%
Dim fso,d
Set fso=server.CreateObject("Scripting.FileSystemObject")
%>

<% for Each d In fso.Drives %>

<% next %>

　　测试的结果。

本计算机驱动器列表(共<%=fso.drives.Count %>个)

驱动器	总空间	可用空间
<%=d.DriveLetter %>盘	<%=d.TotalSize %>字节	<%=d.AvailableSpace %>字节