Observação: A função, o método, o objeto ou a propriedade descrita neste tópico será desabilitada se o Serviço de Expressão do Microsoft Jet estiver em execução no modo de área de segurança, o que impede a avaliação de expressões potencialmente não seguras. Para obter mais informações sobre o modo de área de segurança, pesquise por "modo de área de segurança" na Ajuda.

Retorna a cadeia de caracteres associada a uma variável de ambiente do sistema operacional. Não disponível no Macintosh

Sintaxe

Environ( { envstring | number } )

A sintaxe da função Environ tem estes argumentos:

Argumento

Descrição

envstring

Opcional. Expressão de cadeia de caracteres que contém o nome de uma variável de ambiente.

número

Opcional. Expressão numérica correspondente à ordem numérica da cadeia de caracteres de ambiente na tabela de cadeias de caracteres de ambiente. O argumento number pode ser qualquer expressão numérica, mas é arredondado para um número inteiro antes de ser avaliado.


Comentários

Se o envstring não puder ser encontrado na tabela de cadeias de caracteres de ambiente, uma cadeia de caracteres de comprimento zero ("") será retornada. Caso contrário, Environ retornará o texto atribuído ao envstring especificado; ou seja, o texto seguindo o sinal de igual (=) na tabela de cadeias de caracteres de ambiente para essa variável de ambiente.

Se você especificar o número, a cadeia de caracteres que ocupa essa posição numérica na tabela de cadeias de caracteres de ambiente será retornada. Nesse caso, Environ retorna todo o texto, incluindo envstring. Se não houver cadeia de caracteres de ambiente na posição especificada, Environ retornará uma cadeia de caracteres de comprimento zero.

Exemplo

Observação: Exemplos a seguir demonstram o uso dessa função em um módulo Visual Basic for Applications (VBA). Para obter mais informações sobre como trabalhar com o VBA, selecione Referência do Desenvolvedor na listada ao lado de Pesquisar e insira um ou mais termos na caixa de pesquisa.

Este exemplo usa a função Environ para fornecer o número de entrada e o comprimento da instrução PATH da tabela environment-string. Não está disponível no 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

Precisa de mais ajuda?

Expanda suas habilidades
Explore o treinamento
Obtenha novos recursos primeiro
Ingressar Microsoft Office Insider

Estas informações foram úteis?

Qual é o seu grau de satisfação com a qualidade da tradução?
O que afetou sua experiência?

Obrigado por seus comentários!

×