Примітка.
Функція, метод, об’єкт або властивість, описана в цьому розділі, недоступна, якщо Microsoft Jet Expression Service працює в режимі ізольованого програмного середовища, що запобігає обчисленню потенційно небезпечних виразів. Щоб отримати докладні відомості про режим ізольованого програмного середовища, у вікні довідки шукайте за запитом "режим ізольованого програмного середовища".
Повертає рядок , пов'язаний зі змінною середовища операційної системи. Недоступно в Macintosh
Синтаксис
Environ( { envstring | number } )
Синтаксис функції 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 If
Loop Until EnvString = ""
If PathLen > 0 Then
' Display message.
MsgBox Msg
Else
MsgBox "No PATH environment variable exists."
End If