Environ 函式

傳回與操作系統環境變數相關聯的 String 。 在 Macintosh 上不適用。

語法

Environ ( { envstring | number } )

Environ 函式語法具有下列具名自變數：

部分	描述
envstring	選用。 包含環境變數名稱的字串表達式。
number	選用。 對 應至環境字串數據表中環境字串數值順序的數值表達式。 number 自變數可以是任何數值表達式，但在評估之前會四捨五入成整數。

註解

如果在環境字串數據表中找不到 envstring ，則會傳回長度為零的字串 (“”) 。 否則， Environ 會 傳回指派給指定 之 envstring 的文字;也就是說，在該環境變數的環境字串數據表中， (=) 等號之後的文字。

如果您指定 number，則會傳回在環境字串數據表中佔用該數值位置的字串。 在此情況下， Environ 會傳 回所有文字，包括 envstring。 如果指定的位置沒有環境字串， Environ 會傳回長度為零的字串。

範例

這個範例會使用 Environ 函式，從環境字串數據表提供 語句的項目 PATH 編號和長度。 在 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

另請參閱

• 函式 (Visual Basic for Applications)

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。