Vrátí řetězec přidružený k proměnné prostředí operačního systému. V systému Macintosh není k dispozici.

Syntaxe

Environ( { řetězec_prostředí | číslo } )

Syntaxe funkce Environ obsahuje následující argumenty:

Poznámky

Pokud není řetězec_prostředí v tabulce řetězců prostředí nalezen, je vrácen řetězec nulové délky (""). V opačném případě funkce Environ vrátí text přiřazený k zadanému řetězci_prostředí, tj. text, který je umístěn za znaménkem „rovná se“ (=) v tabulce řetězců prostředí pro danou proměnnou prostředí.

Pokud zadáte argument číslo, bude vrácen řetězec z dané číselné pozice v tabulce řetězců prostředí. V tomto případě funkce Environ vrátí celý text, včetně řetězce_prostředí. Pokud v zadané pozici není žádný text, funkce Environ vrátí řetězec nulové délky.

Příklad

 Poznámka:   Následující příklady uvádějí použití této funkce v modulu jazyka Visual Basic for Applications (VBA). Další informace o práci s jazykem VBA získáte tak, že klepnete na položku Referenční informace pro vývojáře v rozevíracím seznamu vedle pole Hledat a do pole pro hledání zadáte jeden nebo více pojmů.

V tomto příkladu je pomocí funkce Environ zadáno číslo položky a délka příkazu PATH z tabulky řetězců prostředí. V systému Macintosh není k dispozici.

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