描述

语法

GetDrive 方法的语法有以下部分：

部分	描述
object	必选。应为 FileSystemObject 的名称。
drivespec	必选。drivespec 可以是驱动器号 (c)、带冒号的驱动器号 (c:)、带有冒号与路径分隔符的驱动器号 (c:\) 或任何指定的网络共享 (\\computer2\share1)。

说明

如果 drivespec 未遵从上述语法约定或不存在，则会出现错误。 要在普通路径字符串中调用 GetDrive 方法，请使用如下语句序列以获得可作为 drivespec 使用的字符串：

DriveSpec = GetDriveName(GetAbsolutePathName(Path))

 Function ShowFreeSpace(drvPath) 
  Dim fso, d, s
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set d = fso.GetDrive(fso.GetDriveName(drvPath))
  s = "Drive " & UCase(drvPath) & " - " 
  s = s & d.VolumeName  & "<BR>"
  s = s & "Free Space: " & FormatNumber(d.FreeSpace/1024, 0) 
  s = s & " Kbytes"
  ShowFreeSpace = s
End Function