Uwaga: Funkcja, metoda, obiekt lub właściwość opisana w tym temacie jest wyłączona, jeśli usługa wyrażeń Microsoft Jet działa w trybie piaskownicy, co uniemożliwia oszacowanie potencjalnie niebezpiecznych wyrażeń. Aby uzyskać więcej informacji na temat trybu piaskownicy, wyszukaj "tryb piaskownicy" w Pomocy.
Zwraca ciąg skojarzony ze zmienną środowiskową systemu operacyjnego. Niedostępne na komputerze Macintosh
Składnia
Environ( { envstring | liczba } )
W składni funkcji Environ występują następujące argumenty:
|
Argument |
Opis |
|
envstring |
Argument opcjonalny. Wyrażenie ciągu zawierające nazwę zmiennej środowiskowej. |
|
numer |
Argument opcjonalny. Wyrażenie liczbowe odpowiadające kolejności numerycznej ciągu środowiska w tabeli ciągów środowiskowych. Argument liczbowy może być dowolnym wyrażeniem liczbowym, ale przed jego obliczeniem jest zaokrąglana do liczby całkowitej. |
Spostrzeżenia
Jeśli ciąg znaków envstring nie znajduje się w tabeli ciągów środowiska, zwracany jest ciąg znaków o zerowej długości (""). W przeciwnym razie program Environ zwraca tekst przypisany do określonego ciągu envstring. oznacza to tekst następujący po znaku równości (=) w tabeli ciągów środowiska dla tej zmiennej środowiskowej.
Jeśli określisz liczbę, zostanie zwrócony ciąg zajmujący tę pozycję liczbową w tabeli ciągów środowiskowych. W tym przypadku environ zwraca cały tekst, w tym ciąg. Jeśli w określonej pozycji nie ma ciągu środowiska, funkcja Environ zwraca ciąg znaków 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 w celu podania numeru wpisu i długości instrukcji PATH z tabeli ciągów środowiska. Niedostępne na komputerze 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
