Функция

Environ

Синтаксис

Environ({envstring | number})

Возвращает значение типа String, содержащее переменную среды операционной системы.

Параметры

Замечания

Функция использует именованные аргументы. Если переменная с указанным именем не найдена в таблице переменных среды, возвращается пустая строка (""). В противном случае функция Environ возвращает текст, связанный с указанной переменной, т.е. весь текст, расположенный после знака равенства в строке таблицы переменных среды, соответствующей этой переменной. Если указан аргумент number, возвращается строка, занимающая указанную позицию в таблице переменных среды. В таком случае возвращается весь текст, в том числе envstring. Если указанная позиция пуста, функция Environ возвращает пустую строку.

Пример использования

'в данном примере функция Environ используется для определения номера
'позиции инструкции PATH в таблице переменных среды, а также ее длины

Dim EnvString, Indx, Msg, PathLen 'объявляет переменные
Indx = 1 'задает индекс равный 1
Do
  EnvString = Environ(Indx) 'определяет переменную среды
  If Left(EnvString, 5) = "PATH=" Then 'ищет строку PATH
    PathLen = Len(Environ("PATH")) 'определяет ее длину
    Msg = "номер PATH = " & Indx & ", длина = " & PathLen
    Exit Do
  Else
    Indx = Indx + 1 'не PATH, поэтому
  End If 'увеличивает индекс
Loop Until EnvString = ""
If PathLen > 0 Then
  MsgBox Msg 'выводит сообщение
Else
  MsgBox "Переменная среды PATH не найдена."
End If

Дополнительная информация

Категория: Системные функции

Еще функции: Command, CVErr, DoEvents, Environ, Error, GetAllSettings, GetSetting, IMEStatus, Shell

Логин:

Пароль:

Регистрация, забыли пароль?