Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=49880&view=findpost&p=328004 Tue, 30 Mar 2004 17:28:17 +0000 Как пользоваться функцией Environ https://forum.sources.ru/index.php?showtopic=49880&view=findpost&p=328004
    Environ("windir") – возвращает каталог Windows
    Environ("temp") - возвращает директорию временных файлов TEMP
    Environ("tmp") - возвращает директорию временных файлов TMP


Но это ещё не всё

Добавьте на форму Textbox, установите свойство Multiline = True и введите следующий код:

      
    Dim i As Integer, EnvString As String
    Private Sub Form_Load()
       i = 1
       Do
          EnvString = Environ(i)
          Text1.Text = Text1.Text + vbCrLf + Environ(i)
          i = i + 1
       Loop Until EnvString = ""
    End Sub
]]> Dufa Среда VB, компилятор, отладчик, редактор