Функція Environ

Увага! : Цю статтю перекладено за допомогою служби машинного перекладу; див. застереження. Версію цієї статті англійською мовою див. тут для отримання довідки.

Примітка : Функції, метод об'єкта або майна, описані в цій статті буде вимкнуто, якщо вираз служби Microsoft Jet працює у режимі ізольованого програмного середовища, що запобігає обчислення потенційно небезпечних виразів. Додаткові відомості про режим ізольованого програмного середовища знайдіть «режим пісочниці» у вікні довідки.

Повертає рядок , пов'язаних із змінної середовища операційної системи. Недоступний в Macintosh

Синтаксис

Навколишнього ( { envstring | номер } )

Синтаксис функції навколишнього має такі аргументи:

Аргумент

Опис

envstring

Необов'язково. Рядковий вираз, що містить ім'я змінної середовища.

number

Необов'язково. Числовий вираз, який відповідає числовий порядок середовище рядок у середовищі рядка таблиці. Аргумент число » може бути будь-який числовий вираз, але округлюється до цілого числа, перш ніж обчислюється.


Примітки

Якщо не вдалося знайти envstring в середовищі рядка таблиці, Рядок нульової довжини (""), то повертається. В іншому разі навколишнього повертає текст, призначені для вказаного envstring; тобто текст на рівні вхід (=) у середовищі рядка таблиці для цього змінну середовища.

Якщо вказано число, буде повернуто рядок, що числові місці в середовищі рядка таблиці. У цьому випадку Environ Повертає весь текст, зокрема envstring. Якщо рядок не середовище в указаній позиції, навколишнього повертає рядок нульової довжини.

Приклад

Примітка : У прикладах нижче показано використання цієї функції в модулі Visual Basic for Applications (VBA). Щоб отримати докладні відомості про використання модуля VBA, клацніть пункт Довідник розробника в розкривному списку поряд із полем Пошук і введіть у поле пошуку принаймні один термін.

У цьому прикладі використовується функція навколишнього буде вказати номер запису та тривалість 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

Примітка : Застереження про машинний переклад: Цю статтю перекладено комп’ютерною системою без втручання людини. Корпорація Майкрософт пропонує таку послугу, щоб іншомовні користувачі могли дізнаватися про продукти, служби й технології Microsoft. Оскільки статтю перекладено за допомогою служби машинного перекладу, вона може містити смислові, синтаксичні або граматичні помилки.

Отримуйте нові функції раніше за інших
Приєднайтеся до оцінювачів Office

Ця інформація корисна?

Дякуємо за ваш відгук!

Дякуємо за відгук! Схоже, вам може стати в нагоді допомога одного з наших спеціалістів служби підтримки Office, з яким ми вас можемо з’єднати.

×