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 IfLoop Until EnvString = ""If PathLen > 0 Then    ' Display message.    MsgBox MsgElse    MsgBox "No PATH environment variable exists."End If

¿Necesita más ayuda?

¿Quiere más opciones?

Explore las ventajas de las suscripciones, examine los cursos de aprendizaje, aprenda a proteger su dispositivo y mucho más.

Las comunidades le ayudan a formular y responder preguntas, enviar comentarios y leer a expertos con conocimientos extensos.