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

Go Back