www.baike369.com
百科369 > vbs教程 > VBScript Set语句

VBScript Set语句


VBScript Set语句

VBScript的Set语句将对象引用赋给变量或属性。


语法

Set objectvar = {objectexpression | Nothing}

参数

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

提示

为确保有效,objectvar必须与所赋对象的类型一致。

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
Copyright© 2011-2016 www.baike369.com All Rights Reserved