Забележка: Функцията, методът, обектът или свойството, описани в тази тема, се забраняват, ако услугата microsoft Jet Expression се изпълнява в ограничителен режим, което предотвратява оценяването на потенциално опасни изрази. За повече информация относно ограничителния режим потърсете "ограничителен режим" в помощта.
Връща низа , асоцииран с променлива на средата на операционната система. Не е налично на Macintosh
Синтаксис
Environ( { envstring | число } )
Синтаксисът на функцията Environ има следните аргументи:
Аргумент |
Описание |
envstring |
Незадължително. Израз във формата на низ, съдържащ името на променлива на средата. |
число |
Незадължително. Числов израз, съответстващ на числовия ред на низа за средата в таблицата за низ за среда. Аргументът число може да бъде всеки числов израз, но се закръглява до цяло число, преди да се оцени. |
Забележки
Ако не може да бъде намерен низ за средата в таблицата с низове за среда, се връща низ с нулева дължина (""). В противен случай Environ връща текста, присвоен на указаната низ; т.е. текстът след знака за равенство (=) в таблицата за среда-низ за тази променлива на средата.
Ако зададете число, връща се низът, заемащ тази числова позиция в таблицата "низ за среда". В този случай Environ връща целия текст, включително низ. Ако в зададената позиция няма низ за среда, Environ връща низ с нулева дължина.
Пример
Забележка: Примерите по-долу илюстрират използването на тази функция във Visual Basic for Applications (VBA). За повече информация относно работата с VBA изберете Справочни материали за разработчици в падащия списък до Търсене и въведете един или няколко термина в полето за търсене.
Този пример използва функцията Environ , за да предостави номера на записа и дължината на инструкцията за PATH от таблицата environment-string. Не е налично на 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