VBS基础篇 - 对象(4) - Drive对象

描述：提供对特定磁盘驱动器或网络共享属性的访问，从FSO对象的GetDrive方法获得。可以用 Drive 对象来获得有关各种驱动器的信息，这些驱动器是实物地或通过网络连接到系统上的。

它的属性可以用来获得下面的信息内容：

　　驱动器的总容量，以字节为单位（TotalSize 属性）

　　驱动器的可用空间是多少，以字节为单位（AvailableSpace 或 FreeSpace 属性）

　　哪个号被赋给了该驱动器（DriveLetter 属性）

　　驱动器的类型是什么，如可移动的、固定的、网络的、CD-ROM 或 RAM 磁盘（DriveType 属性）

　　驱动器的序列号（SerialNumber属性）

　　驱动器使用的文件系统类型，如 FAT、FAT32、NTFS 等等（FileSystem 属性）

　　驱动器是否可以使用（IsReady 属性）

　　共享和/或卷的名字（ShareName和 VolumeName属性）

　　　　驱动器的路径或根文件夹（Path 和 RootFolder 属性）

   使用Drive对象   Drive对象模型来编程必须先用FileSystemObject(FSO)对象的GetDrive方法获取文件的句柄

1、使用 CreateObject 方法来创建 FileSystemObject 对象

2、使用GetDrive方法获取文件夹的句柄

3、在创建的Drive对象上使用适当的方法

4、访问对象的属性

   属性：(仅常用的属性)

　　 AailableSpace

   描述：返回指定的驱动器或网络共享对于用户的可用空间大小   语法：object.AvailableSpace   参数：object 应为 Drive 对象的名称   说明：AvailableSpace 属性与 FreeSpace 属性返回的值基本相同。对于支持限额的计算机系统来说，这两个属性返回的值有所差异。   示例：显示C盘的可用空间大小　

Dim Fso,MyDriverDim AvailableSpace'创建FileSystemObject对象Set Fso = CreateObject("Scripting.FileSystemObject")'使用GetDrive方法获取驱动器的句柄Set MyDriver = Fso.GetDrive("c:\")'AvailableSpace属性获取当前磁盘驱动器的可用大小AvailableSpace = MyDriver.AvailableSpace/1024/1024/1024'FormatNumber格式化大小，精确到小数点后一位AvailableSpace = FormatNumber(AvailableSpace,1)MsgBox AvailableSpace&"GB" '输出当前磁盘驱动器可用大小，单位为GB 

　DriveType
描述：返回一个描述指定驱动器的类型的值。
语法：object. DriveType
参数：object 应为 Drive 对象的名称。
返回值：

                0: "未知磁盘类型"                1: "可移动磁盘"                2: "本地磁盘"                3: "网络磁盘"                4: "CD-ROM"                5: "RAM 磁盘"

示例：获取C盘的磁盘类型 　

　Dim Fso,MyDriverDim DriveType'创建FileSystemObject对象Set Fso = CreateObject("Scripting.FileSystemObject")'使用GetDrive方法获取驱动器的句柄Set MyDriver = Fso.GetDrive("c:\")'DriveType属性，获取当前磁盘驱动器的类型DriveType = MyDriver.DriveTypeSelect Case DriveType    Case 0 : MsgBox "未知磁盘类型"    Case 1 : MsgBox "可移动磁盘"    Case 2 : MsgBox "本地磁盘"    Case 3 : MsgBox "网络磁盘"    Case 4 : MsgBox "CD-ROM"    Case 5 : MsgBox "RAM 磁盘"End Select

FileSystem
描述：返回指定的驱动器使用的文件系统的类型。
语法：object. FileSystem
参数：object 应为 Drive 对象的名称。
说明：可用的返回类型包括 FAT、NTFS 和 CDFS。
示例：查看C盘的文件系统格式　　

Dim Fso,MyDriverDim FileSystem'创建FileSystemObject对象Set Fso = CreateObject("Scripting.FileSystemObject")'使用GetDrive方法获取驱动器的句柄Set MyDriver = Fso.GetDrive("c:\")'FileSystem属性，获取当前磁盘驱动器的文件类型FileSystem = MyDriver.FileSystemMsgbox FileSystem 

IsReady
描述：如果指定的驱动器就绪，返回 True；否则返回 False。
语法：object. IsReady
参数：object 应为 Drive 对象的名称。
注意：对于可移动媒体驱动器和 CD-ROM 驱动器，仅当插入相应的媒体并准备接受访问时，IsReady才返回 True。
示例：查看C盘是否就绪

Dim Fso,MyDriverDim IsReady'创建FileSystemObject对象Set Fso = CreateObject("Scripting.FileSystemObject")'使用GetDrive方法获取驱动器的句柄Set MyDriver = Fso.GetDrive("c:\")'IsReady属性，获取当前磁盘驱动器的就绪状态IsReady = MyDriver.IsReadyMsgBox IsReady 

　Path
描述：返回指定文件、文件夹或驱动器的路径。
语法：object.Path
参数：object 应为 File、Folder 或 Drive 对象的名称。
说明：对于驱动器，路径不包含根目录。
示例：返回驱动器C的路径。返回的驱动器的路径是 C:，而不是 C:\。　

Dim Fso,MyDriverDim Path'创建FileSystemObject对象Set Fso = CreateObject("Scripting.FileSystemObject")'使用GetDrive方法获取驱动器的句柄Set MyDriver = Fso.GetDrive("c:\")'Path属性，获取当前指定磁盘驱动器的路径Path = MyDriver.PathMsgBox Path 

RootFolder
描述：返回一个 Folder 对象，表示指定驱动器的根文件夹。只读。
语法：object. RootFolder
参数：object 应为 Drive 对象的名称。
说明：使用返回的 Folder 对象，可以访问指定驱动器包含的所有文件和文件夹。
示例：返回驱动器C的根文件夹。将会返回”c:\”注意，有反斜杠。

Dim Fso,MyDriverDim RootFolder'创建FileSystemObject对象Set Fso = CreateObject("Scripting.FileSystemObject")'使用GetDrive方法获取驱动器的句柄Set MyDriver = Fso.GetDrive("c:\")'RootFolder属性，获取当前指定磁盘驱动器的根文件夹RootFolder = MyDriver.RootFolderMsgBox RootFolder 

　　VolumeName
　　 描述：设置或返回指定驱动器的卷标。可读写。
语法：object. VolumeName [= newname]
参数：object必选项。应为 Drive 对象的名称。
newname可选项。如果提供此参数，则 newname 为指定的 object 的新名称。
示例：返回驱动器C的VolumeName　

Dim Fso,MyDriverDim VolumeName'创建FileSystemObject对象Set Fso = CreateObject("Scripting.FileSystemObject")'使用GetDrive方法获取驱动器的句柄Set MyDriver = Fso.GetDrive("c:\")'VolumeName属性，获取当前指定磁盘驱动器的VolumeNameVolumeName = MyDriver.VolumeNameMsgBox VolumeName