Função Environ

Retorna o valor de uma variável de ambiente como uma string. As variáveis de ambiente dependem do tipo de sistema operacional que você possui.

Sintaxe:

Environ (Environment As String)

Valor de retorno:

String

Parâmetros:

Environment: variável Environment para a qual você deseja retornar o valor.

Códigos de erro:

5 Chamada de procedimento inválida

Exemplo:

Sub ExampleEnviron

Dim sTemp As String

    sTemp=Environ ("TEMP")

    If sTemp = "" Then sTemp=Environ("TMP")

    MsgBox "'" & sTemp & "'" ,64,"Directory of temporary files:"

End Sub