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 renvoie 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 environment-string. 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 If
Loop Until EnvString = ""
If PathLen > 0 Then
' Display message.
MsgBox Msg
Else
MsgBox "No PATH environment variable exists."
End If