Returns the String associated with an operating system environment variable. Not available on the Macintosh

Syntax

Environ({envstring | number})

The Environ function syntax has these :

Part Description
envstring Optional. containing the name of an environment variable.
number Optional. corresponding to the numeric order of the environment string in the environment-string table. The number can be any numeric expression, but is rounded to a whole number before it is evaluated.

Remarks

If envstring can't be found in the environment-string table, a zero-length string ("") is returned. Otherwise, Environ returns the text assigned to the specified envstring; that is, the text following the equal sign (=) in the environment-string table for that environment variable.

If you specify number, the string occupying that numeric position in the environment-string table is returned. In this case, Environ returns all of the text, including envstring. If there is no environment string in the specified position, Environ returns a zero-length string.

Example

This example uses the Environ function to supply the entry number and length of the 

PATH
statement from the environment-string table. Not available on the Macintosh. 
Dim EnvString, Indx, Msg, PathLen ' Declare variables. Indx = 1 ' Initialize index to 1. Do EnvString = Environ(Indx) ' Get environment ' variable. If Left(EnvString, 5) = "path=" then ' check path entry. pathlen = len(Environ("PATH")) ' Get length. Msg = "PATH entry = " & Indx & " and length = " & PathLen Exit Do Else Indx = Indx + 1 ' Not PATH entry, End If ' so increment. Loop Until EnvString = "" If PathLen > 0 Then MsgBox Msg ' Display message. Else MsgBox "No PATH environment variable exists." End If