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.
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