Забележка
Функцията, методът, обектът или свойството, описани в тази тема, са забранени, ако услугата за изрази Microsoft Jet се изпълнява в ограничителен режим, което пречи на изчисляването на потенциално опасни изрази. За повече информация относно ограничителния режим потърсете "ограничителен режим" в помощта.
Връща низа , свързан с променлива на средата на операционната система. Не е налично за Macintosh
Синтаксис
Environ( { envstring | number } )
Синтаксисът на функцията Environ има следните аргументи:
| Аргумент | Описание |
|---|---|
| envstring | Незадължително. Низов израз, съдържащ името на променлива на средата. |
| число | Незадължително. Числов израз, съответстващ на числовия ред на низа на средата в таблицата със низове на средата. Аргументът число може да е всеки числов израз, но преди да бъде изчислен, се закръглява до цяло число. |
Забележки
Ако envstring не може да бъде намерен в таблицата с низове на средата, се връща низ с нулева дължина (""). В противен случай Environ връща текста, зададен на зададения низ на средата; Тоест текстът, който следва знака за равенство (=) в таблицата низ на средата за тази променлива на средата.
Ако зададете число, се връща низът, заемащ тази числова позиция в таблицата със низове на средата. В този случай 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