Drive 对象用于返回关于本地磁盘驱动器或者网络共享驱动器的信息。
Drive 对象用于返回关于本地磁盘驱动器或者网络共享驱动器的信息。Drive 对象可以返回有关驱动器的文件系统类型、剩余容量、序列号、卷标名等信息。
注释：您无法通过 Drive 对象返回有关驱动器内容的信息。要达到这个目的，请使用 Folder 对象。
如需操作 Drive 对象的相关属性，您需要通过 FileSystemObject 对象来创建 Drive 对象的实例。首先，创建一个 FileSystemObject 对象，然后通过 FileSystemObject 对象的 GetDrive 方法或者 Drives 属性来实例化 Drive 对象。
Drive 对象的属性描述如下：
| 属性 | 描述 |
|---|---|
| AvailableSpace | 向用户返回在指定的驱动器或网络共享驱动器上的可用空间容量。 |
| DriveLetter | 返回识别本地驱动器或网络共享驱动器的大写字母。 |
| DriveType | 返回指定驱动器的类型。 |
| FileSystem | 返回指定驱动器所使用的文件系统。 |
| FreeSpace | 向用户返回在指定的驱动器或网络共享驱动器上的剩余空间容量。 |
| IsReady | 如果指定驱动器已就绪，则返回 true。否则返回 false。 |
| Path | 返回其后有一个冒号的大写字母，用来指示指定驱动器的路径名。 |
| RootFolder | 返回一个文件夹对象，该文件夹代表指定驱动器的根文件夹。 |
| SerialNumber | 返回指定驱动器的序列号。 |
| ShareName | 返回指定驱动器的网络共享名。 |
| TotalSize | 返回指定的驱动器或网络共享驱动器的总容量。 |
| VolumeName | 设置或者返回指定驱动器的卷标名。 |
取得指定驱动器的总容量
本例演示如何使用 TotalSize 属性来获得指定驱动器的总容量。
<!DOCTYPE html>
<html>
<body>
<%
Dim fs,d,n
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set d=fs.GetDrive("c:")
n = "Drive: " & d
n = n & "<br>Total size in bytes: " & d.TotalSize
Response.Write(n)
set d=nothing
set fs=nothing
%>
</body>
</html>取得指定驱动器的可用空间数
本例演示如何首先创建一个 FileSystemObject 对象，然后使用 AvailableSpace 属性来获得指定驱动器的可用空间。
<!DOCTYPE html>
<html>
<body>
<%
Dim fs, d, n
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set d=fs.GetDrive("c:")
n = "Drive: " & d
n = n & "<br>Available Space in bytes: " & d.AvailableSpace
Response.Write(n)
set d=nothing
set fs=nothing
%>
</body>
</html>取得指定驱动器的剩余空间容量
本例演示如何使用 FreeSpace 空间属性来取得指定驱动器的剩余空间。
<!DOCTYPE html>
<html>
<body>
<%
Dim fs, d, n
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set d=fs.GetDrive("c:")
n = "Drive: " & d
n = n & "<br>Free Space in bytes: " & d.FreeSpace
Response.Write(n)
set d=nothing
set fs=nothing
%>
</body>
</html>取得指定驱动器的驱动器字母
本例演示如何使用 DriveLetter 属性来获得指定驱动器的驱动器字母。
<!DOCTYPE html>
<html>
<body>
<%
dim fs, d, n
set fs=Server.CreateObject("Scripting.FileSystemObject")
set d=fs.GetDrive("c:")
Response.Write("The drive letter is: " & d.driveletter)
set d=nothing
set fs=nothing
%>
</body>
</html>取得指定驱动器的驱动器类型
本例演示如何使用 DriveType 属性来获得指定驱动器的驱动器类型。
<!DOCTYPE html>
<html>
<body>
<%
dim fs, d, n
set fs=Server.CreateObject("Scripting.FileSystemObject")
set d=fs.GetDrive("c:")
Response.Write("The drive type is: " & d.DriveType)
set d=nothing
set fs=nothing
%>
</body>
</html>取得指定驱动器的文件系统信息
本例演示如何使用 FileSystem 来取得指定驱动器的文件系统信息。
<!DOCTYPE html>
<html>
<body>
<%
dim fs, d, n
set fs=Server.CreateObject("Scripting.FileSystemObject")
set d=fs.GetDrive("c:")
Response.Write("The file system is: " & d.FileSystem)
set d=nothing
set fs=nothing
%>
</body>
</html>驱动器是否已就绪？
本例演示如何使用 IsReady 属性来检查指定的驱动器是否已就绪。
<!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>取得指定驱动器的路径
本例演示如何使用 Path 属性来取得指定驱动器的路径。
<!DOCTYPE html>
<html>
<body>
<%
dim fs,d
set fs=Server.CreateObject("Scripting.FileSystemObject")
set d=fs.GetDrive("c:")
Response.Write("The path is " & d.Path)
set d=nothing
set fs=nothing
%>
</body>
</html>取得指定驱动器的根文件夹
本例演示如何使用 RootFolder 属性来取得指定驱动器的根文件夹。
<!DOCTYPE html>
<html>
<body>
<%
dim fs,d
set fs=Server.CreateObject("Scripting.FileSystemObject")
set d=fs.GetDrive("c:")
Response.Write("The rootfolder is " & d.RootFolder)
set d=nothing
set fs=nothing
%>
</body>
</html>取得指定驱动器的序列号
本例演示如何使用 Serialnumber 属性来取得指定驱动器的序列号。
<!DOCTYPE html>
<html>
<body>
<%
dim fs,d
set fs=Server.CreateObject("Scripting.FileSystemObject")
set d=fs.GetDrive("c:")
Response.Write("The serialnumber is " & d.SerialNumber)
set d=nothing
set fs=nothing
%>
</body>
</html>