Visual Basic, .NET, ASP, VBA, VBScript
 
  Справочники  
  Справочник по Windows API Справочник по Visual Basic  
     
  Функция Environ  
 

Функция

Environ

Синтаксис

Environ({envstring | number})

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

Параметры

Наименование

Описание

Envstring

Необязательный. Строковое выражение, содержащее имя переменной среды.

Number

Необязательный. Числовое выражение, соответствующее номеру нужной переменной среды в таблице переменных среды. Аргумент number может задаваться любым числовым выражением. Он округляется до ближайшего целого числа перед выполнением операции.

Замечания

Функция использует именованные аргументы. Если переменная с указанным именем не найдена в таблице переменных среды, возвращается пустая строка (""). В противном случае функция 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

 
     
  VBNet online (всего: 51616)  
 

Логин:

Пароль:

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


В чате сейчас человек
 
     
  VBNet рекомендует  
   
     
  Лучшие материалы  
 
ActiveX контролы (112)
Hitman74_Library (36119)
WindowsXPControls (20739)
FlexGridPlus (19374)
DSMAniGifControl (18295)
FreeButton (15157)
Примеры кода (546)
Parol (18027)
Passworder (9299)
Screen saver (7654)
Kerish AI (5817)
Folder_L (5768)
Статьи по VB (136)
Мое второе впечатление... (11236)
VB .NET: дорога в будущее (11161)
Основы SQL (9225)
Сообщения Windows в Vi... (8788)
Классовая теория прогр... (8619)
 
     
Техническая поддержка MTW-хостинг | © Copyright 2002-2011 VBNet.RU | Пишите нам