391.txt

来自「Java Script & VB Script 教程」· 文本 代码 · 共 27 行

Drive 对象 
 
Microsoft® Visual Basic® Scripting Edition
Drive 对象
语言参考 
版本 3 
 
请参阅 
属性 
方法
描述
提供对磁盘驱动器或网络共享的属性的访问。
说明
以下代码举例说明如何使用 Drive 对象访问驱动器的属性：
Sub ShowFreeSpace(drvPath)
    Dim fs, d, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive(fs.GetDriveName(drvPath))
    s = "驱动器 " & UCase(drvPath) & " - " 
    s = s & d.VolumeName  & vbCrLf
    s = s & "可用空间： " & FormatNumber(d.FreeSpace/1024, 0) 
    s = s & "KB"
    MsgBox s
End Sub