描述

语法

Set 语句的语法包含以下部分：

部分	描述
objectvar	变量或属性的名称，遵循标准变量命名约定。
objectexpression	由对象名称、另一个已声明为相同对象类型的变量或返回相同对象类型的对象的函数或方法组成的表达式。
Nothing	停止 objectvar 与任何指定对象的关联。当没有其他变量引用 objectvar 原来所引用的对象时，如将其赋为 Nothing 会释放与该对象所关联的所有系统和内存资源。

说明

Dim、Private、Public 或 ReDim 语句只声明了引用对象的变量。只有使用 Set 语句将指定对象赋予该变量后，才能引用实际的对象。

通常，当使用 Set 将一个对象引用赋给变量时，并不是为变量创建对象的副本，而是创建对象的引用。可有多个对象变量引用同一个对象。因为这些变量是对象引用（不是副本），所以对对象所作的任何改动都会影响所有引用该对象的变量。

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