Opomba
V tej temi opisana funkcija, metoda, predmet ali lastnost, je onemogočena, če se izvaja storitev Microsoft Jet Expression Service v načinu peskovnika, ki preprečuje vrednotenje morebitno nevarnih izrazov. Za več informacij o načinu peskovnika poiščite »način peskovnika« v pomoči.
Vrne niz, povezan s spremenljivko okolja operacijskega sistema. Ni na voljo v računalniku Macintosh.
Sintaksa
Environ( { envstring | number })
Sintaksa funkcije Environ ima te argumente:
| Argument | Opis |
|---|---|
| envstring | Izbirno. Izraz niza, ki vsebuje ime spremenljivke okolja. |
| številka | Izbirno. Številski izraz, ki ustreza številskemu vrstnem redu niza okolja v tabeli nizov okolja. Argument števila je lahko kateri koli številski izraz, vendar se pred ovrednotenjem zaokroži na celo število. |
Opombe
Če v tabeli okoljskih nizov ni mogoče najti envstringa , se vrne niz ničelne dolžine (""). V nasprotnem primeru Environ vrne besedilo, dodeljeno določenemu envstringu; to je besedilo, ki sledi enačaju (=) v tabeli okoljskega niza za to spremenljivko okolja.
Če določite število, se vrne niz, ki zavzema to številsko mesto v tabeli niza okolja. V tem primeru Environ vrne vse besedilo, vključno z envstring. Če na določenem položaju ni niza okolja, funkcija Environ vrne niz ničelne dolžine.
Primer
Opomba
V spodnjih primerih je prikazana uporaba te funkcije v modulu Visual Basic for Applications (VBA). Če želite več informacij o delu z modulom VBA, izberite Vsebina za razvijalce na spustnem seznamu ob možnosti Iskanje in v iskalno polje vnesite enega ali več izrazov.
V tem primeru je funkcija Environ uporabljena za vnos številke in dolžine PATH izjave iz tabele environment-string. Ni na voljo v računalniku 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