Remarque : La fonction, la méthode, l’objet ou la propriété décrite dans cette rubrique est désactivée si le service d’expression Microsoft Jet s’exécute en mode bac à sable, ce qui empêche l’évaluation d’expressions potentiellement dangereuses. Pour plus d’informations sur le mode bac à sable, recherchez « mode bac à sable » dans l’aide.
Retourne la valeur String associée à une variable d’environnement de système d’exploitation. Non disponible sur Macintosh
Syntaxe
Environ( { envstring | number } )
La syntaxe de la fonction Environ contient les arguments suivants :
|
Argument |
Description |
|
envstring |
Facultatif. Expression de chaîne contenant le nom d’une variable d’environnement. |
|
nombre |
Facultatif. Expression numérique correspondant à l’ordre numérique de la chaîne d’environnement dans la table de chaînes d’environnement. L’argument nombre peut être n’importe quelle expression numérique, mais est arrondi à un nombre entier avant d’être évalué. |
Remarques
Si l’envstring est introuvable dans la table de chaînes d’environnement, une chaîne de longueur nulle (« ») est retournée. Sinon, Environ renvoie le texte affecté à l’envstring spécifié ; autrement dit, le texte suivant le signe égal (=) dans la table de chaînes d’environnement pour cette variable d’environnement.
Si vous spécifiez number, la chaîne occupant cette position numérique dans la table de chaînes d’environnement est retournée. Dans ce cas, Environ retourne tout le texte, y compris l’envstring. S’il n’existe aucune chaîne d’environnement à la position spécifiée, Environ renvoie une chaîne de longueur nulle.
Exemple
Remarque : Les exemples suivants illustrent l’utilisation de cette fonction dans un module Visual Basic pour Applications (VBA). Pour plus d’informations sur l’utilisation de VBA, sélectionnez Référence du développeur dans la liste déroulante en regard de Rechercher et entrez un ou plusieurs termes dans la zone de recherche.
Cet exemple utilise la fonction Environ pour fournir le numéro d’entrée et la longueur de l’instruction PATH à partir de la table de chaînes d’environnement. Non disponible sur Macintosh.
Dim EnvString, Indx, Msg, PathLen ' Declare variables.Indx = 1 ' Initialize index to 1.Do ' Get environment variable. EnvString = Environ(Indx) ' Check PATH entry. If Left(EnvString, 5) = "PATH=" Then ' Get length. PathLen = Len(Environ("PATH")) Msg = "PATH entry = " & Indx & " and length = " _ & PathLen Exit Do Else ' Not PATH entry, so increment. Indx = Indx + 1 End IfLoop Until EnvString = ""If PathLen > 0 Then ' Display message. MsgBox MsgElse MsgBox "No PATH environment variable exists."End If
