Uwaga
Funkcja, metoda, obiekt lub właściwość opisane w tym temacie są wyłączone, jeśli usługa wyrażeń Microsoft Jet działa w trybie piaskownicy, co uniemożliwia ocenę potencjalnie niebezpiecznych wyrażeń. Aby uzyskać więcej informacji o trybie piaskownicy, wyszukaj termin "tryb piaskownicy" w Pomocy.
Zwraca ciąg skojarzony ze zmienną środowiskową systemu operacyjnego. Niedostępne na komputerach Macintosh
Składnia
Environ( { envstring | number } )
W składni funkcji Environ występują następujące argumenty:
| Argumenty argumentów | Opis |
|---|---|
| envstring | Argument opcjonalny. Wyrażenie ciągu zawierające nazwę zmiennej środowiskowej. |
| liczba | Argument opcjonalny. Wyrażenie liczbowe odpowiadające kolejności numerycznej ciągu środowiskowego w tabeli parametrów środowiska. Argument liczba może być dowolnym wyrażeniem liczbowym, ale przed obliczeniem jest zaokrąglany do liczby całkowitej. |
Uwagi
Jeśli envstring nie można odnaleźć w tabeli parametrów środowiskowych, zwracany jest ciąg o zerowej długości (""). W przeciwnym razie Environ zwraca tekst przypisany do określonego envstring; czyli tekst następujący po znaku równości (=) w tabeli parametrów środowiskowych dla tej zmiennej środowiskowej.
Jeśli określisz liczbę, zwracany jest ciąg zajmujący tę pozycję numeryczną w tabeli ciągów środowiskowych. W tym przypadku Environ zwraca cały tekst, w tym envstring. Jeśli w określonej pozycji nie ma ciągu środowiska, Environ zwraca ciąg o zerowej długości.
Przykład
Uwaga
Poniższe przykłady przedstawiają sposób użycia tej funkcji w module języka Visual Basic for Applications (VBA). Aby uzyskać dodatkowe informacje na temat pracy w języku VBA, wybierz pozycję Dokumentacja dewelopera z listy rozwijanej obok przycisku Wyszukaj i wprowadź odpowiednie terminy w polu wyszukiwania.
W tym przykładzie użyto funkcji Environ do podania numeru wpisu i długości instrukcji PATH z tabeli parametrów środowiska. Niedostępne na komputerach 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