Environ, fonction

  • Article

Renvoie la valeur de type 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 comprend les arguments nommés suivants :

Élément Description
envstring Facultatif. Expression de chaîne contenant le nom d’une variable d’environnement.
number Facultatif. Expression numérique correspondant à l’ordre numérique de la chaîne d’environnement de 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 envstring est introuvable dans la table de chaînes d’environnement, une chaîne de longueur nulle ("") est renvoyée. Sinon, Environ renvoie le texte affecté à l’expression envstring spécifiée ; autrement dit, le texte qui suit le signe égal (=) dans la table de chaînes d’environnement de cette variable d’environnement.

Si vous spécifiez number, la chaîne qui occupe cette position numérique dans la table de chaînes d’environnement est renvoyée. Dans ce cas, Environ renvoie la totalité du texte, y compris envstring. Si aucune chaîne d’environnement ne se trouve à la position spécifiée, la fonction Environ renvoie une chaîne de longueur nulle.

Exemple

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
    EnvString = Environ(Indx)    ' Get environment 
                ' variable.
    If Left(EnvString, 5) = "PATH=" Then    ' Check PATH entry.
        PathLen = Len(Environ("PATH"))    ' Get length.
        Msg = "PATH entry = " & Indx & " and length = " & PathLen
        Exit Do
    Else
        Indx = Indx + 1    ' Not PATH entry,
    End If    ' so increment.
Loop Until EnvString = ""
If PathLen > 0 Then
    MsgBox Msg    ' Display message.
Else
    MsgBox "No PATH environment variable exists."
End If

Voir aussi

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.