Función Environ

Devuelve el elemento String asociado con una variable del entorno del sistema operativo. No disponible en Macintosh.

Sintaxis

Environ( { envstring | number } )

La sintaxis de la función Environ tiene estos argumentos con nombre:

Parte	Descripción
envstring	Opcional. Expresión de cadena que contiene el nombre de una variable de entorno.
number	Opcional. Expresión numérica que corresponde al orden numérico de la cadena de entorno en la tabla de cadenas de entorno. El argumentonumber puede ser cualquier expresión numérica, pero se redondea a un número entero antes de evaluarlo.

Comentarios

Si no se encuentra envstring en la tabla de cadenas de entorno, se devuelve una cadena de longitud cero (""). En caso contrario, Environ devuelve el texto asignado al envstring especificado; es decir, el texto siguiente al signo igual (=) en la tabla de cadenas de entorno para esa variable de entorno.

Si se especifica number, se devuelve la cadena que ocupa la 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:

En este ejemplo, se usa la función Environ para proporcionar el número de entrada y al longitud de la instrucción PATH de la tabla de cadenas de entorno. No disponible en Macintosh.

Dim EnvString, Indx, Msg, PathLen    ' Declare variables.
Indx = 1    ' Initialize index to 1.
Do
    EnvString = Environ(Indx)    ' Get environment 
                ' variable.
    If Left(EnvString, 5) = "PATH=" Then    ' Check PATH entry.
        PathLen = Len(Environ("PATH"))    ' Get length.
        Msg = "PATH entry = " & Indx & " and length = " & PathLen
        Exit Do
    Else
        Indx = Indx + 1    ' Not PATH entry,
    End If    ' so increment.
Loop Until EnvString = ""
If PathLen > 0 Then
    MsgBox Msg    ' Display message.
Else
    MsgBox "No PATH environment variable exists."
End If

Vea también

• Funciones (Visual Basic para Aplicaciones)

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.