Share via

Environ 函式

  • 發行項

更新：2007 年 11 月

傳回和作業系統環境變數關聯的字串 (String)。

Overloads Function Environ(ByVal Expression As Integer) As String
' -or-
Overloads Function Environ(ByVal Expression As String) As String

參數

  • Expression
    必要項。運算式，評估是包含環境變數名稱的字串，或與環境字串資料表 (String Table) 中環境字串數值順序對應的整數。

例外狀況

例外狀況類型

錯誤代碼

條件

ArgumentException

5

Expression 遺失。

如果將使用非結構化錯誤處理的 Visual Basic 6.0 應用程式升級，請參閱「錯誤代碼」資料行 (您可以將錯誤代碼與 Number 屬性 (Err 物件) 比對)。但是，請盡可能考慮以 Visual Basic 的結構化例外處理概觀 取代這類錯誤控制項。

備註

如果 Expression 包含字串，則 Environ 函式會傳回指派至指定環境字串的文字，也就是環境字串資料表中跟在該環境變數等號 (=) 後面的文字。如果在環境字串資料表中找不到 Expression 中的字串，則會傳回長度為零的字串 ("")。

如果 Expression 包含整數，則會傳回環境字串資料表中位於該數值位置的字串。在這種情況下，Environ 會傳回所有文字，包含環境變數的名稱。如果指定位置中沒有環境字串，Environ 會傳回長度為零的字串。

安全性注意事項：

Environ 函式需要環境的使用權限，而該權限在部分信任的情況下，可能會影響其執行。如需詳細資訊，請參閱 SecurityPermission 和程式碼存取使用權限。

範例

這個範例會使用 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

智慧型裝置開發人員注意事項

不支援這個函式。

需求

命名空間 (Namespace)︰Microsoft.VisualBasic

**模組︰**Interaction

組件 (Assembly)：Visual Basic Runtime Library (在 Microsoft.VisualBasic.dll 中)

請參閱

參考

Visual Basic 執行階段程式庫成員

ArgumentException