Nota: La función, método, objeto o propiedad descrita en este tema se deshabilita si el Servicio de expresiones de Microsoft Jet se ejecuta en modo de espacio aislado, lo que impide la evaluación de expresiones potencialmente no seguras. Para obtener más información sobre el modo de espacio aislado, busca "modo de espacio aislado" en la Ayuda.
Devuelve la cadena asociada a una variable de entorno del sistema operativo. No disponible en Macintosh
Sintaxis
Environ( { envstring | número } )
La sintaxis de la función Environ tiene estos argumentos:
Argumento |
Descripción |
envstring |
Opcional. Expresión de cadena que contiene el nombre de una variable de entorno. |
número |
Opcional. Expresión numérica correspondiente al orden numérico de la cadena de entorno en la tabla de cadena de entorno. El argumento número puede ser cualquier expresión numérica, pero se redondea a un número entero antes de evaluarlo. |
Observaciones
Si envstring no se encuentra en la tabla de cadena de entorno, se devuelve una cadena de longitud cero (""). En caso contrario, Environ devuelve el texto asignado a la envstring especificada; es decir, el texto que sigue al signo igual (=) en la tabla de cadena de entorno para esa variable de entorno.
Si especifica un número, se devuelve la cadena que ocupa esa posición numérica en la tabla de cadena de entorno. En este caso, Environ devuelve todo el texto, incluido envstring. Si no hay ninguna cadena de entorno en la posición especificada, Environ devuelve una cadena de longitud cero.
Ejemplo
Nota: Los ejemplos siguientes muestran el uso de esta función en un módulo de Visual Basic para Aplicaciones (VBA). Para obtener más información sobre cómo trabajar con VBA, seleccione referencia para desarrolladores en la lista desplegable situada junto a búsqueda y escriba uno o varios términos en el cuadro de búsqueda.
En este ejemplo se usa la función Environ para proporcionar el número de entrada y la longitud de la instrucción PATH de la tabla de cadena de entorno. No disponible en 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