Hàm Environ

Trả về Chuỗi liên quan đến một biến môi trường của hệ điều hành. Không khả dụng trên Macintosh

Cú pháp

Environ( { envstring | number } )

Cú pháp hàm Environ có các đối số sau:

Đối số	Mô tả
EnvString	Không bắt buộc. Biểu thức chuỗi chứa tên của một biến môi trường.
số	Không bắt buộc. Biểu thức số tương ứng với thứ tự số của chuỗi môi trường trong bảng chuỗi môi trường. Đối số số có thể là bất kỳ biểu thức số nào nhưng được làm tròn thành số nguyên trước khi được đánh giá.

    

Chú thích

Nếu không tìm thấy envstring trong bảng environment-string, thì trả về chuỗi độ dài bằng 0 (""). Nếu không, Environ trả về văn bản được gán cho chuỗi môi trường đã xác định; Tức là, văn bản theo sau dấu bằng (=) trong bảng chuỗi môi trường cho biến môi trường đó.

Nếu bạn xác định số, chuỗi chiếm vị trí số đó trong bảng chuỗi môi trường sẽ được trả về. Trong trường hợp này, Environ trả về tất cả văn bản, bao gồm cả envstring. Nếu không có chuỗi môi trường nào ở vị trí được chỉ định, thì hàm Environ trả về chuỗi có độ dài bằng không.

Ví dụ

Ví dụ này sử dụng hàm Environ để cung cấp số mục nhập và độ dài của PATH câu lệnh từ bảng chuỗi môi trường. Không khả dụng trên máy Macintosh.

Dim EnvString, Indx, Msg, PathLen    ' Declare variables.
Indx = 1    ' Initialize index to 1.
Do
    ' Get environment variable.
    EnvString = Environ(Indx)
    ' Check PATH entry.
    If Left(EnvString, 5) = "PATH=" Then
        ' Get length.
        PathLen = Len(Environ("PATH"))
        Msg = "PATH entry = " & Indx & " and length = " _
               & PathLen
        Exit Do
    Else
        ' Not PATH entry, so increment.
        Indx = Indx + 1
    End If
Loop Until EnvString = ""
If PathLen > 0 Then
    ' Display message.
    MsgBox Msg
Else
    MsgBox "No PATH environment variable exists."
End If