[急]各位大侠给我个Drive 对象的用法示例，毕业设计用 急啊！！！

[minosa]

各位大侠给我个Drive 对象的用法示例，考试用 急啊！！！
请用vbscript实现
越快越好

[minosa]

这里有一个 你看看行不
Sub ShowDriveInfo(drvPath)
Dim fso, drv, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set drv = fso.GetDrive(fso.GetDriveName(drvPath))
s = "Drive " & UCase(drvPath) & " - "
s = s & drv.VolumeName & "<br>"
s = s & "Total Space: " & FormatNumber(drv.TotalSize / 1024, 0)
s = s & " Kb" & "<br>"
s = s & "Free Space: " & FormatNumber(drv.FreeSpace / 1024, 0)
s = s & " Kb" & "<br>"
Response.Write s
End Sub

[KimSoft]

Drive 对象
提供对磁盘驱动器或网络共享的属性的访问。

说明
以下代码举例说明如何使用 Drive 对象访问驱动器的属性：

Function ShowFreeSpace(drvPath)
Dim fso, d, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set d = fso.GetDrive(fso.GetDriveName(drvPath))
s = "驱动器 " & UCase(drvPath) & " - "
s = s & d.VolumeName & "<BR>"
s = s & "可用空间： " & FormatNumber(d.FreeSpace/1024, 0)
s = s & "KB"
ShowFreeSpace = s
End Function
属性
AvailableSpace 属性 | DriveLetter 属性 | DriveType 属性 | FileSystem 属性 | FreeSpace 属性 | IsReady 属性 | Path 属性 | RootFolder 属性 | SerialNumber 属性 | ShareName 属性 | TotalSize 属性 | VolumeName 属性

[minosa]

谢了

[KimSoft]

楼主找个vbs55.chm，里面很详细

[minosa]

处理驱动器和文件夹
使用 FileSystemObject (FSO) 对象模式，可以有计划地处理驱动器和文件夹，就像在 Windows 资源管理器中交互式地处理它们一样。可以复制和移动文件夹，获取有关驱动器和文件夹的信息，等等。

获取有关驱动器的信息
可以用 Drive 对象来获得有关各种驱动器的信息，这些驱动器是实物地或通过网络连接到系统上的。它的属性可以用来获得下面的信息内容：

驱动器的总容量，以字节为单位（TotalSize 属性）
驱动器的可用空间是多少，以字节为单位（AvailableSpace 或 FreeSpace 属性）
哪个号被赋给了该驱动器（DriveLetter 属性）
驱动器的类型是什么，如可移动的、固定的、网络的、CD-ROM 或 RAM 磁盘（DriveType 属性）
驱动器的序列号（SerialNumber 属性）
驱动器使用的文件系统类型，如 FAT、FAT32、NTFS 等等（FileSystem 属性）
驱动器是否可以使用（IsReady 属性）
共享和/或卷的名字（ShareName 和 VolumeName 属性）
驱动器的路径或根文件夹（Path 和 RootFolder 属性）
请考察 示例代码，来领会如何在 FileSystemObject 中使用这些属性。

Drive 对象的用法示例
使用 Drive 对象来收集有关驱动器的信息。在下面的代码中，没有对实际的 Drive 对象的引用；相反，使用 GetDrive 方法来获得现有 Drive 对象的引用（在这个例子中就是 drv）。

下面示例示范了如何在 VBScript 中使用 Drive 对象：

Sub ShowDriveInfo(drvPath)
Dim fso, drv, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set drv = fso.GetDrive(fso.GetDriveName(drvPath))
s = "Drive " & UCase(drvPath) & " - "
s = s & drv.VolumeName & "<br>"
s = s & "Total Space: " & FormatNumber(drv.TotalSize / 1024, 0)
s = s & " Kb" & "<br>"
s = s & "Free Space: " & FormatNumber(drv.FreeSpace / 1024, 0)
s = s & " Kb" & "<br>"
Response.Write s
End Sub
下面的代码说明在 Visual Basic Scripting Edition 中实现同样的功能：

function ShowDriveInfo1(drvPath)
{
var fso, drv, s ="";
fso = new ActiveXObject("Scripting.FileSystemObject");
drv = fso.GetDrive(fso.GetDriveName(drvPath));
s += "Drive " + drvPath.toUpperCase()+ " - ";
s += drv.VolumeName + "<br>";
s += "Total Space: " + drv.TotalSize / 1024;
s += " Kb" + "<br>";
s += "Free Space: " + drv.FreeSpace / 1024;
s += " Kb" + "<br>";
Response.Write(s);
}

[minosa]

还是这么好玩

[ayukowa]

中国网络导航：http://www.haoup.com/
博客网络导航：http://www.haoup.com/default.htm

[散步的蠕虫]

看懂就行
处理驱动器和文件夹
使用 FileSystemObject (FSO) 对象模式，可以有计划地处理驱动器和文件夹，就像在 Windows 资源管理器中交互式地处理它们一样。可以复制和移动文件夹，获取有关驱动器和文件夹的信息，等等。

获取有关驱动器的信息
可以用 Drive 对象来获得有关各种驱动器的信息，这些驱动器是实物地或通过网络连接到系统上的。它的属性可以用来获得下面的信息内容：

驱动器的总容量，以字节为单位（TotalSize 属性）
驱动器的可用空间是多少，以字节为单位（AvailableSpace 或 FreeSpace 属性）
哪个号被赋给了该驱动器（DriveLetter 属性）
驱动器的类型是什么，如可移动的、固定的、网络的、CD-ROM 或 RAM 磁盘（DriveType 属性）
驱动器的序列号（SerialNumber 属性）
驱动器使用的文件系统类型，如 FAT、FAT32、NTFS 等等（FileSystem 属性）
驱动器是否可以使用（IsReady 属性）
共享和/或卷的名字（ShareName 和 VolumeName 属性）
驱动器的路径或根文件夹（Path 和 RootFolder 属性）
请考察 示例代码，来领会如何在 FileSystemObject 中使用这些属性。

Drive 对象的用法示例
使用 Drive 对象来收集有关驱动器的信息。在下面的代码中，没有对实际的 Drive 对象的引用；相反，使用 GetDrive 方法来获得现有 Drive 对象的引用（在这个例子中就是 drv）。

下面示例示范了如何在 VBScript 中使用 Drive 对象：

Sub ShowDriveInfo(drvPath)
Dim fso, drv, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set drv = fso.GetDrive(fso.GetDriveName(drvPath))
s = "Drive " & UCase(drvPath) & " - "
s = s & drv.VolumeName & "<br/>"
s = s & "Total Space: " & FormatNumber(drv.TotalSize / 1024, 0)
s = s & " Kb" & "<br/>"
s = s & "Free Space: " & FormatNumber(drv.FreeSpace / 1024, 0)
s = s & " Kb" & "<br/>"
Response.Write s
End Sub
下面的代码说明在 Visual Basic Scripting Edition 中实现同样的功能：

function ShowDriveInfo1(drvPath)
{
var fso, drv, s ="";
fso = new ActiveXObject("Scripting.FileSystemObject");
drv = fso.GetDrive(fso.GetDriveName(drvPath));
s += "Drive " + drvPath.toUpperCase()+ " - ";
s += drv.VolumeName + "<br/>";
s += "Total Space: " + drv.TotalSize / 1024;
s += " Kb" + "<br/>";
s += "Free Space: " + drv.FreeSpace / 1024;
s += " Kb" + "<br/>";
Response.Write(s);
}