Affecte une référence d'objet à une variable ou à une propriété, ou associe une référence de procédure à un événement.
Set objectvar = {objectexpression | New classname | Nothing}
-ou-
Set object.eventname = GetRef(procname)
objectvar
Nom de la variable ou de la propriété ; respecte les conventions standard d'affectation de noms à des variables.
objectexpression
Facultatif. Expression composée du nom d'un objet, d'une autre variable déclarée du même type d'objet ou d'une fonction ou méthode qui renvoie un objet appartenant au même type d'objet.
New
Mot clé utilisé pour créer une nouvelle instance de classe. Si objectvar contient une référence à un objet, celle-ci est ignorée lorsqu'une nouvelle référence est affectée. Le mot clé New est uniquement utilisé pour créer l'instance d'une classe.
classname
Facultatif. Nom de la classe en cours de création. Une classe et ses membres sont définies par l'instruction Class.
Nothing
Facultatif. Met fin à l'association de l'élément objectvar à un objet ou une classe spécifique. L'affectation à objectvar de la valeur Nothing libère toutes les ressources système et mémoire associées à l'objet précédemment référencé quand aucune autre variable n'y fait référence.
object
Nom de l'objet avec lequel event est associé.
event
Nom de l'événement auquel une fonction va être liée.
procname
Chaîne contenant le nom de la procédure Sub ou Function en cours d'association avec event.
Pour être valide, objectvar doit être un type d'objet en cohérence avec l'objet qui lui est affecté.
Les instructions Dim, Private, Public ou ReDim ne déclarent qu'une variable faisant référence à un objet. Il n'est fait référence à aucun objet réel avant que vous n'utilisiez l'instruction Set pour affecter un objet spécifique.
En général, lorsque vous utilisez Set pour affecter une référence d'objet à une variable, aucune copie de l'objet n'est créée pour cette variable. À la place, une référence à l'objet est créée. Plusieurs variables d'objets peuvent faire référence au même objet. Dans la mesure où ces variables sont des références à l'objet (plutôt que des copies), tout changement apporté à l'objet est répercuté dans toutes les variables y faisant référence.
Function ShowFreeSpace(drvPath)
Dim fso, d, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set d = fso.GetDrive(fso.GetDriveName(drvPath))
s = "Lecteur " & UCase(drvPath) & " - "
s = s & d.VolumeName & "<BR>"
s = s & "Espace disponible: " & FormatNumber(d.FreeSpace/1024, 0)
s = s & " Koctets"
ShowFreeSpace = s
End FunctionL'utilisation du mot clé New vous permet de créer une instance de classe et de lui affecter une variable de référence à un objet. La variable à laquelle l'instance de la classe est affectée doit être déclarée au préalable avec l'instruction Dim (ou une instruction équivalente).
Reportez-vous à la documentation relative à la fonction GetRef pour associer une procédure à un événement au moyen de l'instruction Set.
=, opérateur | Dim, instruction | GetRef, fonction | ReDim, instruction