Was this page helpful?
Your feedback about this content is important. Let us know what you think.
Additional feedback?
1500 characters remaining
Export (0) Print
Expand All

Environ Function

Returns the string associated with an operating system environment variable.

Overloads Function Environ(ByVal Expression As Integer) As String

-or-

Overloads Function Environ(ByVal Expression As String) As String

Parameter

Expression
Required. Expression that evaluates to either a string containing the name of an environment variable, or an integer corresponding to the numeric order of an environment string in the environment-string table.

Exceptions/Errors

Exception type Error number Condition
ArgumentException 5 Expression is missing.

Remarks

If Expression contains a string, the Environ function returns the text assigned to the specified environment string; that is, the text following the equal sign (=) in the environment-string table for that environment variable. If the string in Expression cannot be found in the environment-string table, a zero-length string ("") is returned.

If Expression contains an integer, the string occupying that numeric position in the environment-string table is returned. In this case, Environ returns all of the text, including the name of the environment variable. 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.

Sub tenv()
   Dim envString As String
   Dim found As Boolean = False
   Dim index As Integer = 1
   Dim pathLength As Integer
   Dim message As String

   envString = Environ(index)
   While Not found And (envString <> "")
      If (envString.Substring(0, 5) = "Path=") Then
         found = True
      Else
         index += 1
         envString = Environ(index)
      End If
   End While

   If found Then
      pathLength = Environ("PATH").Length
      message = "PATH entry = " & index & " and length = " & pathLength
   Else
      message = "No PATH environment variable exists."
   End If

   MsgBox(message)
End Sub

Smart Device Developer Notes

This function is not supported.

Requirements

Namespace: Microsoft.VisualBasic

Module: Interaction

Assembly: Microsoft Visual Basic .NET Runtime (in MicrosoftVisualBasic.dll)

See Also

Visual Basic Run-Time Library Members | ArgumentException Class

Show:
© 2015 Microsoft