Notă: Funcția, metoda, obiectul sau proprietatea descrise în acest subiect este dezactivată dacă Serviciul de expresii Microsoft Jet rulează în modul sandbox, ceea ce împiedică evaluarea expresiilor potențial nesigure. Pentru mai multe informații despre modul sandbox, căutați "modul sandbox" în Ajutor.
Returnează șirul de caractere asociat cu o variabilă de mediu a sistemului de operare. Indisponibil pe Macintosh
Sintaxă
Environ( { envstring | number } )
Sintaxa funcției Environ are următoarele argumente:
|
Argument |
Descriere |
|
în șir |
Opțional. Expresie șir care conține numele unei variabile de mediu. |
|
număr |
Opțional. Expresie numerică corespunzătoare ordinii numerice a șirului de mediu din tabelul de șiruri de mediu. Argumentul număr poate fi orice expresie numerică, dar este rotunjit la un număr întreg înainte de a fi evaluat. |
Observații
Dacă în tabelul șir de mediu nu poate fi găsit șirul de lungime zero ("") este returnat. În caz contrar, Environ returnează textul atribuit șirului specificat; mai exact, textul care urmează după semnul egal (=) din tabelul de șiruri de mediu pentru variabila de mediu respectivă.
Dacă specificați numărul, este returnat șirul care ocupă acea poziție numerică în tabelul șir de mediu. În acest caz, Environ returnează tot textul, inclusiv envstring. Dacă nu există niciun șir de mediu în poziția specificată, Environ returnează un șir de lungime zero.
Exemplu
Notă: Exemplele care urmează demonstrează utilizarea acestei funcții într-un modul Visual Basic for Applications (VBA). Pentru mai multe informații despre lucrul cu VBA, selectați Referințe pentru dezvoltatori în lista verticală de lângă Căutare și introduceți unul sau mai mulți termeni în caseta de căutare.
Acest exemplu utilizează funcția Environ pentru a furniza numărul de intrare și lungimea declarației PATH din tabelul de șiruri de mediu. Nu este disponibil pe 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
