Drive对象
描述
提供访问特定磁盘驱动器或网络共享的属性,可以使用FSO对象的GetDrive方法返回一个Drive对象。
方法
Drive对象没有方法
属性
Drive对象有如下属性:
AvailableSpace Property | DriveLetter Property | DriveType Property | FileSystem Property | FreeSpace Property | IsReady Property | Path Property |RootFolder Property | SerialNumber Property | ShareName Property | TotalSize Property | VolumeName Property
这里先介绍一下GetDirve的使用:
描述
返回一个Drive对象
语法
object.GetDrive(drivespec)
参数
object | 必要参数.FSO对象的名称 |
drivespec | 必要参数.drivespec参数可以是一个驱动器字符(c),或者带上冒号(c:),或者驱动器字符加上斜杠(c:\),也可以是一个网络共享(\\computer2\share1). |
下面通过实例来演示Dirve对象的属性:
'使用GetDrive方法实例化驱动器E:
Dim fso,drive
Set fso = CreateObject("Scripting.FileSystemObject")
Set drive = fso.GetDrive("e:")
'展示Drive对象的各个属性
Dim str
str ="Available Space: "& drive.AvailableSpace/(1024^3) & "Gb"& vbcrlf
str =str & "Drive Letter: "& drive.DriveLetter & vbcrlf
str =str & "Drive Type: "& drive.DriveType & vbcrlf
str =str & "File System: "& drive.FileSystem & vbcrlf
str =str & "Free Space : "& drive.FreeSpace/(1024^3) & "Gb"& vbcrlf
str =str & "Is Ready: "& drive.IsReady & vbcrlf
str =str & "Path: "& drive.Path & vbcrlf
str =str & "Root Folder: "& drive.RootFolder & vbcrlf
str =str & "Serial Number: "& drive.SerialNumber & vbcrlf
str =str & "Share Name : "& drive.ShareName & vbcrlf
str =str & "Total Size: "& drive.TotalSize/(1024^3) & "Gb"& vbcrlf
str =str & "Volume Name: "& drive.VolumeName & vbcrlf
Msgbox str
返回
AvailableSpace 属性与 FreeSpace 属性返回的值基本相同。但对于支持限额的计算机系统来说,这两个属性返回的值有所差异。
FSO对象模型实现了类似于WMI中的磁盘管理的功能,但是FSO和WMI是有一些区别的:
WMI 能返回一些 Drive对象无法返回的属性,如磁盘的柱面、扇区等。
Drive对象并不能创建和删除驱动器,只能获取驱动器的信息。
相对于WMI,FSO对象一般在本地环境中使用,考虑到安全性不推荐在远程客户端上使用,并且IE浏览器的默认安全设置不允许客户端使用FileSystemObject对象。
DriveType可以返回5个数值,含义分别如下:
value | 描述 |
---|---|
1 | Removable |
2 | Fixed |
3 | Network |
4 | CD-ROM |
5 | RAM Disk |
转载于:https://blog.51cto.com/967169/1223462