Bỏ qua để tới nội dung chính
Đăng nhập với Microsoft
Đăng nhập hoặc tạo một tài khoản.
Xin chào,
Chọn một tài khoản khác.
Bạn có nhiều tài khoản
Chọn tài khoản bạn muốn đăng nhập.

Lưu ý: Hàm, phương pháp, đối tượng hoặc thuộc tính được mô tả trong chủ đề này sẽ bị vô hiệu hóa nếu Dịch vụ Biểu thức Phản lực của Microsoft đang chạy trong chế độ hộp cát, điều này ngăn không cho đánh giá các biểu thức không an toàn tiềm ẩn. Để biết thêm thông tin về chế độ hộp cát, hãy tìm kiếm "chế độ hộp cát" trong Trợ giúp.

Trả về chuỗi gắn với biến môi trường hệ điều hành. Không khả dụng trên Macintosh

Cú pháp

Environ( { envstring | số } )

pháp hàm Environ có các đối số sau đây:

Đối số

Mô tả

ghen t thủy

Không bắt buộc. Biểu thức chuỗi chứa tên của biến môi trường.

number

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ố dạng số có thể là bất kỳ biểu thức số nào, nhưng được làm tròn tới một số nguyên trước khi được đánh giá.


Chú thích

Nếu không thể tìm thấy chuỗi ghen thiệp trong bảng chuỗi môi trường, thì trả về chuỗi có độ dài bằng 0 (""). Nếu không, Environ trả về văn bản được gán cho dấu chữ khắc đã xác định; nghĩa là, văn bản 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 chỉ đị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ả chữ ghen thiển. Nếu không có chuỗi môi trường ở vị trí được chỉ định, Environ sẽ trả về chuỗi có độ dài bằng 0.

Ví dụ

Lưu ý: Các ví dụ sau thể hiện cách sử dụng hàm này trong mô-đun Visual Basic for Applications (VBA). Để biết thêm thông tin về cách làm việc với VBA, chọn Tham khảo dành cho Nhà phát triển trong danh sách thả xuống cạnh Tìm kiếm, rồi nhập một hoặc nhiều từ vào hộp tìm kiếm.

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

Bạn cần thêm trợ giúp?

Bạn muốn xem các tùy chọn khác?

Khám phá các lợi ích của gói đăng ký, xem qua các khóa đào tạo, tìm hiểu cách bảo mật thiết bị của bạn và hơn thế nữa.

Cộng đồng giúp bạn đặt và trả lời các câu hỏi, cung cấp phản hồi và lắng nghe ý kiến từ các chuyên gia có kiến thức phong phú.

Thông tin này có hữu ích không?

Bạn hài lòng đến đâu với chất lượng dịch thuật?
Điều gì ảnh hưởng đến trải nghiệm của bạn?
Khi nhấn gửi, phản hồi của bạn sẽ được sử dụng để cải thiện các sản phẩm và dịch vụ của Microsoft. Người quản trị CNTT của bạn sẽ có thể thu thập dữ liệu này. Điều khoản về quyền riêng tư.

Cảm ơn phản hồi của bạn!

×