참고: 이 항목에 설명된 함수, 메서드, 개체 또는 속성은 Microsoft Jet Expression Service가 샌드박스 모드에서 실행 중이면 사용할 수 없으므로 안전하지 않은 식이 평가되지 않습니다. 샌드박스 모드에 대한 자세한 내용은 도움말에서 "샌드박스 모드"를 검색하세요.
운영 체제 환경 변수와 연결된 String 을 반환합니다. Macintosh에서 사용할 수 없음
구문
Environ( { envstring | number } )
환경 함수 구문에는 다음과 같은 인수가 사용됩니다.
|
인수 |
설명 |
|
envstring |
선택 요소입니다. 환경 변수의 이름을 포함하는 문자열 식입니다. |
|
number |
선택 요소입니다. 환경 문자열 테이블의 환경 문자열의 숫자 순서에 해당하는 숫자 식입니다. number 인수는 숫자 식일 수 있지만 계산되기 전에 정수로 반올림됩니다. |
주의
환경 문자열 테이블에서 envstring을 찾을 수 없는 경우 길이가 0인 문자열("")이 반환됩니다. 그렇지 않으면 환경은 지정된 envstring에 할당된 텍스트를 반환합니다. 즉, 해당 환경 변수에 대한 환경 문자열 테이블의 등호(=) 다음 텍스트입니다.
숫자를 지정하면 환경 문자열 테이블에서 해당 숫자 위치를 차지하는 문자열이 반환됩니다. 이 경우 Environ 은 envstring을 포함하여 모든 텍스트를 반환합니다. 지정된 위치에 환경 문자열이 없으면 환경 은 길이가 0인 문자열을 반환합니다.
예제
참고: VBA(Visual Basic for Applications) 모듈에서 이 함수를 사용하는 경우를 예로 들어 보겠습니다. VBA 사용에 대해 자세히 알아보려면 검색 옆의 드롭다운 목록에서 개발자 참고를 선택하고 검색 상자에 검색어를 하나 이상 입력하세요.
이 예제에서는 환경 문자열 테이블에서 environ 함수를 사용하여 PATH 문의 항목 번호와 길이를 입력합니다. 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 IfLoop Until EnvString = ""If PathLen > 0 Then ' Display message. MsgBox MsgElse MsgBox "No PATH environment variable exists."End If
