øһԣ߽¼

Set objectvar = {objectexpression | New classname | Nothing}
--

Set object.eventname = GetRef(procname)

objectvar 
ѡ;ϱ׼ 
objectexpression 
ѡһµıʽ,һͬ͡򷽷Ƿͬ͵Ķ 
New 
ڴһʵĹؼ֡ objectvar һĳãһµñ֮ýͷšNew ؼڴһʵ 
classname 
ѡ. ơʹ Class 䶨༰䡣 
Nothing 
ѡϿ objectvar κָĹûǰöʱ objectvar ֵΪ Nothing ͷǰöϵͳڴԴ 
object 
ѡ event Ķơ 
event 
ѡ¼ơ 
procname 
ѡevent  Sub  Function Ƶַ 
˵
ΪʹЧobjectvar 븳ֵĶһ¡

DimPrivatePublic  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
 New ؼ֣ʱһʵһñֵʵıһ Dim (Ƶ)Ѿ

йʹ Set һϸϢο GetRef ĵ

Ҫ
汾 1 
