Interaction.Environ Método

Definição

Espaço de Nomes:: Microsoft.VisualBasic

Assemblagem:: Microsoft.VisualBasic.dll

Importante

Algumas informações dizem respeito a um produto pré-lançado que pode ser substancialmente modificado antes de ser lançado. A Microsoft não faz garantias, de forma expressa ou implícita, em relação à informação aqui apresentada.

Devolve a cadeia associada a uma variável de ambiente do sistema operativo.

Sobrecargas

Name	Description
Environ(String)	Devolve a cadeia associada a uma variável de ambiente do sistema operativo.
Environ(Int32)	Devolve a cadeia associada a uma variável de ambiente do sistema operativo.

Environ(String)

Devolve a cadeia associada a uma variável de ambiente do sistema operativo.

public:
 static System::String ^ Environ(System::String ^ Expression);

public static string Environ(string Expression);

static member Environ : string -> string

Public Function Environ (Expression As String) As String

Parâmetros

Expression: String

Required. Expressão que avalia uma cadeia contendo o nome de uma variável de ambiente, ou um inteiro correspondente à ordem numérica de uma cadeia de ambiente na tabela de cadeia de ambiente.

Devoluções

String

A cadeia associada a uma variável de ambiente do sistema operativo.

Exceções

ArgumentException

Expression está desaparecido.

Exemplos

Este exemplo usa a Environ função para fornecer o número de entrada e o comprimento da PATH instrução a partir da tabela de cordas de ambiente.

Sub tenv()
    Dim envString As String
    Dim found As Boolean = False
    Dim index As Integer = 1
    Dim pathLength As Integer
    Dim message As String

    envString = Environ(index)
    While Not found And (envString <> "")
        If (envString.Substring(0, 5) = "Path=") Then
            found = True
        Else
            index += 1
            envString = Environ(index)
        End If
    End While

    If found Then
        pathLength = Environ("PATH").Length
        message = "PATH entry = " & index & " and length = " & pathLength
    Else
        message = "No PATH environment variable exists."
    End If

    MsgBox(message)
End Sub

Observações

Se Expression contiver uma cadeia, a Environ função devolve o texto atribuído à cadeia de ambiente especificada – ou seja, o texto após o sinal de igual (=) na tabela de cadeia de ambiente para essa variável de ambiente. Se a cadeia em Expression não puder ser encontrada na tabela de cordas ambiente, uma cadeia de comprimento zero ("") é devolvida.

Se Expression contiver um inteiro, a cadeia que ocupa essa posição numérica na tabela de cordas de ambiente é devolvida. Neste caso, Environ devolve todo o texto, incluindo o nome da variável de ambiente. Se não houver cadeia de ambiente na posição especificada, Environ retorna uma cadeia de comprimento zero.

Importante

A Environ função requer permissão ambiental, o que pode afetar a sua execução em situações de confiança parcial. Para mais informações, consulte SecurityPermission e Permissões de Acesso ao Código.

Ver também

Aplica-se a

Environ(Int32)

Devolve a cadeia associada a uma variável de ambiente do sistema operativo.

public:
 static System::String ^ Environ(int Expression);

public static string Environ(int Expression);

static member Environ : int -> string

Public Function Environ (Expression As Integer) As String

Parâmetros

Expression: Int32

Required. Expressão que avalia uma cadeia contendo o nome de uma variável de ambiente, ou um inteiro correspondente à ordem numérica de uma cadeia de ambiente na tabela de cadeia de ambiente.

Devoluções

String

A cadeia associada a uma variável de ambiente do sistema operativo.

Exceções

ArgumentException

Expression está desaparecido.

Exemplos

Este exemplo usa a Environ função para fornecer o número de entrada e o comprimento da PATH instrução a partir da tabela de cordas de ambiente.

Sub tenv()
    Dim envString As String
    Dim found As Boolean = False
    Dim index As Integer = 1
    Dim pathLength As Integer
    Dim message As String

    envString = Environ(index)
    While Not found And (envString <> "")
        If (envString.Substring(0, 5) = "Path=") Then
            found = True
        Else
            index += 1
            envString = Environ(index)
        End If
    End While

    If found Then
        pathLength = Environ("PATH").Length
        message = "PATH entry = " & index & " and length = " & pathLength
    Else
        message = "No PATH environment variable exists."
    End If

    MsgBox(message)
End Sub

Observações

Importante

Ver também

Aplica-se a

Comentários

Esta página foi útil?