Nota
La función, el método, el objeto o la propiedad descritos en este tema se deshabilitan si el servicio de expresiones de Microsoft Jet se ejecuta en modo de espacio aislado, lo que impide la evaluación de expresiones potencialmente inseguras. Para obtener más información sobre el modo de espacio aislado, busque "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 | number } )
La sintaxis de la función Environ consta de los siguientes argumentos:
| Argumento | Descripción |
|---|---|
| cadena de entorno | Opcional. Expresión de cadena que contiene el nombre de una variable de entorno. |
| número | Opcional. Expresión numérica que corresponde 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 que se evalúe. |
Observaciones
Si no se puede encontrar envstring en la tabla de cadena de entorno, se devuelve una cadena de longitud cero (""). De lo contrario, Environ devuelve el texto asignado al envstring especificado; 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 cadenas 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 de la PATH 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