VBCoding Библиотека кодов Visual Basic 6 Оболочка и система Получить список всех переменных среды и их значения

Visual Basic 6
Получить список всех переменных среды и их значения
Dim s As String 'Здесь будет результат

For i = 1 To 255
If Environ(i) <> "" Then
s = s & Environ(i) & vbCrLf
End If
Next
MsgBox s
 

Добавить комментарий


Защитный код
Обновить

 
VBCoding Библиотека кодов Visual Basic 6 Оболочка и система Получить список всех переменных среды и их значения  
Powered by Exponenta -