Función Environ

Devuelve el valor de una variable de entorno en forma de cadena. Las variables de entorno dependen del tipo de sistema operativo del que se disponga.

Sintaxis:

Environ (Entorno As String)

Valor de retorno:

Cadena

Parámetros:

Entorno: Variable de entorno de la que se desee devolver el valor.

Códigos de error:

5 Llamada a procedimiento no válida

Ejemplo:

Sub ExampleEnviron

Dim sTemp As String

    sTemp=Environ ("TEMP")

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

    MsgBox "'" & sTemp & "'" ,64,"Directorio de archivos temporales:"

End Sub