Nota
A função, método, objeto ou propriedade descrita neste tópico será desativada se o Serviço Microsoft Jet Expression estiver em execução no modo sandbox, o que impede a avaliação de expressões potencialmente não seguras. Para obter mais informações sobre o modo sandbox, pesquise "modo sandbox" na Ajuda.
Retorna a String associada a uma variável de ambiente do sistema operacional. Não está disponível no Macintosh
Sintaxe
Environ( { envstring | number } )
A sintaxe da função Ambiente tem os seguintes argumentos:
| Argumento | Descrição |
|---|---|
| envstring | Opcional. Expressão de cadeia 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 do ambiente na tabela de cadeia de caracteres do ambiente. O argumento número pode ser qualquer expressão numérica, mas é arredondado para um número inteiro antes de ser avaliado. |
Observações
Se envstring não puder ser encontrado na tabela de cadeia de caracteres de ambiente, uma cadeia de comprimento zero ("") será retornada. Caso contrário, Environ retorna o texto atribuído ao envstring especificado; ou seja, o texto que segue o sinal de igual (=) na tabela de cadeia de caracteres de ambiente para essa variável de ambiente.
Se especificar um número, será devolvida a cadeia que ocupa essa posição numérica na tabela de cadeia de ambiente. Neste caso, Ambiente devolve todo o texto, incluindo envstring. Se não houver nenhuma cadeia de caracteres de ambiente na posição especificada, Ambiente retornará uma cadeia de caracteres de comprimento zero.
Exemplo
Nota
Os exemplos seguintes demonstram a utilização desta função no módulo VBA (Visual Basic for Applications). Para obter mais informações sobre como trabalhar com o VBA, selecione Referência para Programadores na lista pendente junto a Procurar e introduza um ou mais termos na caixa de pesquisa.
Este exemplo usa a função Environ para fornecer o número de entrada e o PATH comprimento da instrução da tabela de cadeia de caracteres de ambiente. 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