Drive對象
Drive對象可以用于訪問計算機或服務(wù)器上指定的驅(qū)動器的屬性。Drive對象不支持任何方法。RootFolder屬性返回一個文件夾對象，表示驅(qū)動器的根文件夾或者根目錄，此時能夠獲得一個包含根文件夾下子文件夾的Folder集合對象，這樣就能訪問該驅(qū)動器的所有部分。
Drive對象的所有屬性都是只讀的。
AvailableSpace屬性
返回磁盤可用的空間，以字節(jié)表示，Variant類型。
FreeSpace屬性
與AvailableSpace屬性相同，返回磁盤上的可用空間，Variant類型。
DriveLetter屬性
返回驅(qū)動器盤符，不帶冒號，String類型。
DriveType屬性
返回驅(qū)動器類型，DriveType常量，其中0代表未知，1代表可移動，2代表固定，3代表網(wǎng)絡(luò)，4代表CD-ROM，5代表RAM磁盤。
Sub CDROM_DriveLetter() Const CDROM = 4 Dim fs, colDrives, Drive Set fs = CreateObject("Scripting.FileSystemObject") Set colDrives = fs.Drives For Each Drive In colDrives If Drive.DriveType = CDROM Then MsgBox "CD-ROM驅(qū)動器:" & Drive.DriveLetter End If NextEnd Sub |
FileSystem屬性
返回所安裝的文件系統(tǒng)，例如FAT、NTFS或CDFS，String類型。
IsReady屬性
Boolean類型。對硬盤而言，應(yīng)該總是返回True。對于可移動驅(qū)動器而言，如果插入了合適的媒介（例如CD-ROM盤）并且可以訪問，則返回True。
Function IsCDROMReady(strDriveLetter) Dim fs, objDrive Set fs = CreateObject("Scripting.FileSystemObject") Set ojbdrive = fs.GetDrive(strDriveLetter) IsCDROMReady = (objDrive.DriveType = 4) And objDrive.IsReady = TrueEnd Function |
Path屬性
返回根文件夾的路徑，驅(qū)動器名后緊跟一個冒號（例如C：），String類型。這是Drive對象的默認屬性。
RootFolder屬性
返回表示根文件夾的Folder對象，可以以此訪問文件系統(tǒng)的其余部分。
SerialNumber屬性
返回驅(qū)動器系列號，Long類型。
ShareName屬性
用于網(wǎng)絡(luò)共享，指計算機的網(wǎng)絡(luò)共享名（例如\\NTSERV1\TestWork），String類型。
TotalSize屬性
返回驅(qū)動器總?cè)萘浚宰止?jié)表示，Variant類型。
VolumeName屬性
指驅(qū)動器卷標名（如果指定了驅(qū)動器卷標的話），String類型。
Drives集合
Drives集合包含所有連接到當前計算機的驅(qū)動器，甚至還包括那些當前不能讀的驅(qū)動器（例如沒有插入的可移動驅(qū)動器）。Drives集合以零為基數(shù)，只讀。
Count屬性
返回集合中Drive對象的數(shù)目，Long類型。
Item屬性
oDrives.Item(Key) |
返回一個鍵為Key（驅(qū)動器名）的Drive對象。Drive對象集合不是普通的集合，因此不能使用驅(qū)動器的索引值（在集合中的位置序號），否則將產(chǎn)生運行時錯誤“無效的過程調(diào)用或參數(shù)”。由于讀取一個不存在的驅(qū)動器的Drive對象會產(chǎn)生運行時錯誤，因此最好先調(diào)用FileSystemObject對象的DriveExists方法。
Sub TestDrives() Dim ofsFileSys As FileSystemObject Dim ofsDrives As Drives Dim ofsDrive As Drive Set ofsFileSys = New FileSystemObject Set ofsDrives = ofsFileSys.Drives Set ofsDrive = ofsDrives.Item("C") MsgBox ofsDrive.DriveType Set ofsDrive = Nothing Set ofsDrives = Nothing Set ofsFileSys = NothingEnd Sub |
