dos-3

Get All DOS Environment Variables

Get All DOS Environment Variables

An example of DOS Environment variables:

PATH=C:\WINDOWS;C:\WINDOWS\COMMAND
BLASTER=A220 I7 D1 T2
PROMPT=$p$g
winbootdir= C:\WINDOWS

Preparations

Add 1 Command Button and 1 Text Box to your form.
Set the Text Box MultiLine property to True.

Form Code

Private Sub Command1_Click()
Dim Env As String
Dim x As Integer
x = 1
Env = Environ(x)
Text1 = ""
Do Until Env = ""
Env = Environ(x)
Text1 = Text1 + Env & vbNewLine
x = x + 1
Loop
End Sub