Poznámka
Funkce, metoda, objekt nebo vlastnost popsané v tomto tématu jsou zakázány, pokud je služba Microsoft Jet Expression Service spuštěna v režimu izolovaného prostoru (sandbox), který znemožňuje vyhodnocení potenciálně nebezpečných výrazů. Další informace o režimu izolovaného prostoru vyhledáte zadáním dotazu "režim izolovaného prostoru" v nápovědě.
Vrátí řetězec přidružený k proměnné prostředí operačního systému. Není k dispozici na počítačích Macintosh
Syntaxe
Environ( { envstring | number } )
Syntaxe funkce Environ obsahuje následující argumenty:
| Argument | Popis |
|---|---|
| envstring | Nepovinný argument. Řetězcový výraz obsahující název proměnné prostředí. |
| číslo | Nepovinný argument. Číselný výraz odpovídající číselnému pořadí řetězce prostředí v tabulce řetězců prostředí. Argument číslo může být libovolný číselný výraz, ale před vyhodnocením se zaokrouhlí na celé číslo. |
Poznámky
Pokud envstring nelze v tabulce environment-string najít, vrátí se řetězec nulové délky (""). V opačném případě vrátí Environ text přiřazený zadanému envstring; To znamená text, který následuje za znaménkem rovná se (=) v tabulce řetězců prostředí pro danou proměnnou prostředí.
Pokud zadáte číslo, vrátí se řetězec, který zaujímá tuto číselnou pozici v tabulce řetězců prostředí. V tomto případě vrátí Environ celý text včetně envstring. Pokud na zadané pozici není žádný řetězec prostředí, vrátí Environ řetězec nulové délky.
Příklad
Poznámka
Následující příklady ukazují použití této funkce v modulu VBA (Visual Basic pro Applications). Pokud chcete další informace o práci s modulem VBA, vyberte Referenční informace pro vývojáře, které najdete v rozevíracím seznamu vedle položky Hledat a do vyhledávacího pole napište požadované pojmy.
V tomto příkladu se funkce Environ používá k zadání čísla položky a délky PATH příkazu z tabulky řetězců prostředí. Není k dispozici na počítačích 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