1.3 驱动器信息

取得某个驱动器对象可以使用FSO对象的GetDrive方法，参数是盘符，可以带冒号和反斜杠，如“C”“C:”“C:\”。举例如下：

Set drive = fso.GetDrive("C:\")

Drive对象的属性列表如表1-3所示。

表1-3 Drive对象的属性

读取驱动器信息之前，应该先判断驱动器是否存在，然后再判断驱动器是否准备就绪。第一步可以使用FSO对象的DriveExists方法来判断，第二步可以使用Drive对象的IsReady属性来判断。

下面看一个读取C盘属性的例子。

Drive.asp

<%@codepage=936%>
<! --#include File="fso_function.asp" -->
<%
Response.Charset = "GBK"

drivePath = "c:\"
Set fso = CreateObject("Scripting.FileSystemObject")

'判断驱动器是否存在
If fso.DriveExists(drivePath) Then
    Set drive = fso.GetDrive(drivePath) '取得drive对象

    '判断是否准备就绪
    If drive.IsReady Then
            Response.Write "空间：" & drive.AvailableSpace & "字节<br>"
            Response.Write "驱动器字符：" & drive.DriveLetter & "<br>"
            Response.Write "驱动器类型：" & GetDriveTypeName(drive.DriveType) & "<br>"
            Response.Write "文件系统：" & drive.FileSystem & "<br>"
            Response.Write "剩余空间：" & drive.FreeSpace & "字节<br>"
            Response.Write "路径：" & drive.Path & "<br>"
            Response.Write "根目录：" & drive.RootFolder & "<br>"
            Response.Write "序列号：" & drive.SerialNumber & "<br>"
            Response.Write "共享名：" & drive.ShareName & "<br>"
            Response.Write "空间大小：" & drive.TotalSize & "字节<br>"
            Response.Write "卷标：" & drive.VolumeName & "<br>"
    Else
            Response.Write "驱动器没有准备好。"
    End If
Else
    Response.Write "驱动器不存在。"
End If
Set fso = Nothing
%>

运行结果如图1-2所示。

图1-2 读取C盘属性