Interaction.Environ 方法

定义

命名空间:
Microsoft.VisualBasic
程序集:
Microsoft.VisualBasic.dll

返回与操作系统环境变量关联的字符串。

重载

名称 说明
Environ(String)

返回与操作系统环境变量关联的字符串。
Environ(Int32)

返回与操作系统环境变量关联的字符串。

Environ(String)

返回与操作系统环境变量关联的字符串。

public:
 static System::String ^ Environ(System::String ^ Expression);
public static string Environ(string Expression);
static member Environ : string -> string
Public Function Environ (Expression As String) As String

参数

Expression
String

必填。 计算包含环境变量名称的字符串的表达式，或对应于环境字符串表中环境字符串的数字顺序的整数。

返回

String

与操作系统环境变量关联的字符串。

例外

ArgumentException

Expression 缺少 。

示例

此示例使用 Environ 函数从环境字符串表提供语句的 PATH 条目编号和长度。

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

注解

如果 Expression 包含字符串，该 Environ 函数将返回分配给指定环境字符串的文本，即环境字符串表中该环境变量的等号（=）后面的文本。 如果在环境字符串表中找不到字符串， Expression 则返回零长度字符串（“”）。

如果 Expression 包含整数，则返回在环境字符串表中占据该数值位置的字符串。 在这种情况下， Environ 返回所有文本，包括环境变量的名称。 如果指定位置中没有环境字符串， Environ 则返回零长度字符串。

Important

该 Environ 函数需要环境权限，这可能会在部分信任的情况下影响其执行。 有关详细信息，请参阅 SecurityPermission 和 代码访问权限。

另请参阅

适用于

Environ(Int32)

返回与操作系统环境变量关联的字符串。

public:
 static System::String ^ Environ(int Expression);
public static string Environ(int Expression);
static member Environ : int -> string
Public Function Environ (Expression As Integer) As String

参数

Expression
Int32

必填。 计算包含环境变量名称的字符串的表达式，或对应于环境字符串表中环境字符串的数字顺序的整数。

返回

String

与操作系统环境变量关联的字符串。

例外

ArgumentException

Expression 缺少 。

示例

此示例使用 Environ 函数从环境字符串表提供语句的 PATH 条目编号和长度。

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

注解

如果 Expression 包含字符串，该 Environ 函数将返回分配给指定环境字符串的文本，即环境字符串表中该环境变量的等号（=）后面的文本。 如果在环境字符串表中找不到字符串， Expression 则返回零长度字符串（“”）。

如果 Expression 包含整数，则返回在环境字符串表中占据该数值位置的字符串。 在这种情况下， Environ 返回所有文本，包括环境变量的名称。 如果指定位置中没有环境字符串， Environ 则返回零长度字符串。

Important

该 Environ 函数需要环境权限，这可能会在部分信任的情况下影响其执行。 有关详细信息，请参阅 SecurityPermission 和 代码访问权限。

另请参阅

适用于