Примітка.: Функція, метод, об’єкт або властивість, описана в цьому розділі, недоступна, якщо Microsoft Jet Expression Service працює в режимі ізольованого програмного середовища, що запобігає обчисленню потенційно небезпечних виразів. Щоб отримати докладні відомості про режим ізольованого програмного середовища, у вікні довідки шукайте за запитом "режим ізольованого програмного середовища".
Повертає рядок , пов'язаний зі змінною середовища операційної системи. Недоступно в Macintosh
Синтаксис
Environ( { envstring | число } )
Синтаксис функції Environ має такі аргументи:
|
Аргумент |
Опис |
|
envstring (envstring) |
— необов’язковий аргумент. Рядковий вираз, що містить ім'я змінної середовища. |
|
кількість – обов’язковий параметр. |
— необов’язковий аргумент. Числовий вираз, який відповідає числовому порядку рядка середовища в таблиці з рядками середовища. Числовий аргумент може бути будь-яким числовим виразом, але округлюється до цілого числа перед його обчисленням. |
Примітки
Якщо аргумент envstring не знайдено в таблиці з рядком середовища, повертається рядок нульової довжини (""). В іншому разі Функція Environ повертає текст, призначений вказаному envstring; тобто текст після знака рівності (=) у таблиці з рядками середовища для цієї змінної середовища.
Якщо вказати число, повертається рядок, який займає це числове положення в таблиці з рядками середовища. У цьому випадку Environ повертає весь текст, включно з envstring. Якщо в указаному положенні немає рядка середовища, функція Environ повертає рядок нульової довжини.
Приклад
Примітка.: У прикладах нижче показано використання цієї функції в модулі Visual Basic for Applications (VBA). Щоб отримати докладні відомості про використання модуля VBA, клацніть пункт Довідник розробника в розкривному списку поряд із полем Пошук і введіть у поле пошуку принаймні один термін.
У цьому прикладі використано функцію Environ , щоб ввести номер і довжину PATH оператора з таблиці з рядками середовища. Цей параметр недоступний у системі 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
