Environ, Environ$

返回与操作系统环境变量关联的值，可按名称或环境字符串表中基于1的位置查找。

语法：

• Environ$( envstring ), Environ( envstring )
• Environ$( number ), Environ( number )

envstring

必需 字符串表达式，包含环境变量的名称。

number

必需 数值表达式，给出进程环境字符串表中条目的基于1的位置。number可以是任何数值表达式，在求值前四舍五入为整数。

带$后缀的形式返回String；不带后缀的形式返回Variant（String）。

使用envstring调用时，Environ返回分配给该环境变量的值——即该变量在环境字符串表中等号(=)后面的文本。如果在表中找不到envstring，则返回零长度字符串("")。

使用number调用时，Environ返回该位置的整个条目，包括变量名、等号和值（例如"PATH=C:\Windows;C:\Windows\System32"）。如果该位置没有条目，则返回零长度字符串。

示例

本示例遍历环境字符串表以查找PATH的条目编号和值长度。

Dim EnvString As String, Indx As Long, PathLen As Long
Indx = 1
Do
    EnvString = Environ(Indx)
    If Left(EnvString, 5) = "PATH=" Then
        PathLen = Len(Environ("PATH"))
        Debug.Print "PATH entry = " & Indx & " and length = " & PathLen
        Exit Do
    Else
        Indx = Indx + 1
    End If
Loop Until EnvString = ""

If PathLen = 0 Then
    Debug.Print "No PATH environment variable exists."
End If