Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Environ Variables 1
- Thread starter Luix
- Start date
-
1
- #2
This code will give you a collection of all the environment variables which can then do what you want with:
Option Explicit
Dim Env As New Collection
Private Sub Command1_Click()
Dim Indx As Integer
Dim EnvString As String
Indx = 1
Do
EnvString = Environ(Indx)
Env.Add Item:=EnvString, Key:=CStr(Indx)
Indx = Indx + 1
Loop Until EnvString = ""
End Sub
Option Explicit
Dim Env As New Collection
Private Sub Command1_Click()
Dim Indx As Integer
Dim EnvString As String
Indx = 1
Do
EnvString = Environ(Indx)
Env.Add Item:=EnvString, Key:=CStr(Indx)
Indx = Indx + 1
Loop Until EnvString = ""
End Sub
- Status
Similar threads
- Locked
- Question