Microsoft(R) Visual Basic(R) Scripting Edition Drive 对象 | 语言参考 起始页 | 版本 3

请参阅 属性 方法

##### 描述

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

##### 说明

> 以下代码举例说明如何使用 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

(C) 1998 Microsoft Corporation. All rights reserved. Terms of Use.