VBS教程：VBScript语句-Set语句
vbs基本教程
Set 语句
将对象引⽤赋给⼀个variable或property，或者将对象引⽤与事件关联。
Set objectvar = {objectexpression | New classname | Nothing}
-或者-
Set object.eventname = GetRef(procname)
参数
objectvar
必选项，变量或属性名称；符合标准变量命名约定。
objectexpression
可选项，与对象名称⼀致的Expression，另⼀个相同object type、函数或⽅法的已声明变量，它们返回相同对象类型的对象。
New
⽤于创建⼀个类的新实例的Keyword。如果objectvar包含⼀个对某个对象的引⽤，当⼀个新的引⽤被赋给这个对象之后，则这个引⽤将被释放。New 关键仅⽤于创建⼀个class的实例。
classname
可选项. 创建的类名称。使⽤Class语句定义类及其语句。
Nothing
可选项。断开objectvar与任何指定对象或类的关联。当没有其他变量引⽤前⾯的引⽤对象时，将objectvar赋值为Nothing以释放与前⾯的引⽤对象相关联的系统或内存资源。
object
必选项。与 event 相关联的对象名称。
event
必选项。函数作⽤域的事件名称。
procname
必选项。包含与event 相关联的Sub或Function 名称的字符串。
说明
为了使其有效，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: " 利⽤Ne
w关键词，您可以随时创建⼀个类的实例，并将⼀个对象引⽤变量赋值给它。赋给类的实例的变量⼀定利⽤Dim (或相似的语句)语句事先已经声明。
有关使⽤Set语句关联⼀个过程与对象的详细信息，请参考GetRef函数的⽂档。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。