Função Environ

Nota: A função, método, objeto ou propriedade descrito neste tópico é desativada se o Microsoft Jet Expression Service estiver a funcionar em modo sandbox, o que impede a avaliação de expressões potencialmente inseguras. Para obter mais informações sobre o modo sandbox, procure "modo sandbox" em Ajuda.

Devolve a Cadeia associada a uma variável ambiente do sistema operativo. Não disponível no Macintosh

Sintaxe

Environ, {envstring | número } )

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

Argumento

Descrição

envstring

Opcional. Expressão de corda contendo o nome de uma variável ambiental.

número

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


Observações

Se não for possível encontrar envstring na mesa de cordas do ambiente, uma corda de comprimento zero (")é devolvida. Caso contrário, a Environ devolve o texto atribuído à envstringespecificada; isto é, o texto que segue o sinal igual (=) na tabela de cordas ambientais para essa variável ambiente.

Se especificar o número,a cadeia que ocupa a posição numérica na mesa de cordas ambiente é devolvida. Neste caso, a Environ devolve todo o texto, incluindo envstring. Se não houver uma cadeia de ambiente na posição especificada, a Environ devolve uma corda 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 utiliza a função Environ para fornecer o número de entrada e o comprimento da declaração de PATH da tabela de cordas ambientais. 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?

Aumente os seus conhecimentos do Office
Explore as formações
Seja o primeiro a obter novas funcionalidades
Adira ao Office Insider

As informações foram úteis?

Obrigado pelos seus comentários!

Obrigado pelo seu feedback! Parece que poderá ser benéfico reencaminhá-lo para um dos nossos agentes de suporte do Office.

×