Для чего используется фун-я Environ

А ты вот тут посмотри http://vbnet.ru/faq/showtopic.asp?id=121

Цитата(Farhod @ 23.4.2002, 12:36)

Для чего используется фун-я Environ

Environ ({envstring | number}) - Возвращает строку, ассоциированную с переменной окружения ОС.

Пример:

Form1.Caption = Environ ("WINDIR")'Возвратит путь к директории Windows

В этом примере в Text1 отобразятся все
переменные окружения (по строчкам)
Dim c As String
For a = 1 To 20
c = Environ(a)
If c <> "" Then
Text1.Text = Text1.Text & c & vbCrLf
Else
Exit For
End If
Next a

Цитата(Farhod @ 23.4.2002, 12:36)

Для чего используется фун-я Environ

Еще вот что у меня есть по Environ:

10. В Бэйсике есть одна ОЧЕНЬ полезная, но многими забытая функция Environ! Она возвращает имена и содержание всех переменных среды операционной системы!!! Так, например, чтобы получить директорию Windows, совсем не надо прибегать к API-функции GetWindowsDirectory!!!!!! А получить её можно так:

ABC = Environ ("windir")

И ВСЁ!
Но и это ещё не всё! Также можно получить следующие перменные:

ABC = Environ ("TMP") 'директория временных файлов TEMP
ABC = Environ ("BLASTER") 'координаты звуковой карты
ABC = Environ ("PATH") 'пути, объявленные в autoexec.bat

НО И ЭТО ВСЁ ЕЩЁ НЕ ВСЁ!!!!
Чтобы получить имя и значение перменной, в скобках вместо строки надо поставить номер переменной (или индекс?).

Вставьте следуюшую процедуру в окно Code, запустите проект, кликните на форме увидите список всех переменных и их значений!

Private Sub Form_Click()
 'берём перменную и присваеваем ей единицу
  m = 1
 'запускаем цикл, который увеличивает переменную m каждый
 'раз на единицу и подсовывает её функции Environ
  Do
 'присваеваем перменной EnvString возвращаемую перменную,
 'соответсвующую номеру m
  EnvString = Environ(m)
 'печатаем перменную, соответсвующую номеру m
  Print Environ(m)
 'перменную m увеличиваем на один
  m = m + 1
 'если перменная EnvString всё ещё не пустая - крутим дальше...
  Loop Until EnvString = ""
End Sub

ТЕПЕРЬ ВСЁ! ;-)) И теперь все, кто недолюбливает API-функции (по-моему их вообще мало, кто долюбливает :-)) могут пользоваться только этой строчкой!