Environ-Funktion

Artikel
04/07/2023

Gibt die Zeichenfolge zurück, die mit einer Betriebssystem-Umgebungsvariable verknüpft ist. Unter Macintosh nicht verfügbar.

Syntax

Environ( { envstring | number } )

Die Syntax der Environ-Funktion hat folgende benannte Argumente:

Teil	Beschreibung
envstring	Optional. Zeichenfolgenausdruck mit dem Namen einer Umgebungsvariable.
number	Optional. Numeric expression corresponding to the numeric order of the environment string in the environment-string table. Das Argument numberkann ein beliebiger numerischer Ausdruck sein, wird aber vor der Auswertung auf eine ganze Zahl gerundet.

HinwBemerkungeneise

Wenn envstring nicht in der Umgebungszeichenfolgentabelle nicht gefunden wird, wird eine Zeichenfolge mit der Länge Null ("") zurückgegeben. Andernfalls gibt Environ den Text zurück, der der angegebenen envstring zugewiesen ist, d. h. der Text nach dem Gleichheitszeichen (=) in der Umgebungszeichenfolgen-Tabelle für die jeweilige Umgebungsvariable.

Wenn Sie number angebgen, wird die Zeichenfolge zurückgegeben, die diese numerische Position in der Umgebungszeichenfolgen-Tabelle einnimmt. In diesem Fall gibt Environ den gesamten Text zurück, einschließlich envstring. Wenn an der angegebenen Position keine Umgebungszeichenfolge vorhanden ist, gibt Environ eine leere Zeichenfolge zurück.

Beispiel

Dieses Beispiel verwendet die Environ-Funktion, um die Eintragsnummer und Länge der PATH-Anweisung aus der Umgebungszeichenfolgen-Tabelle anzugeben. Unter Macintosh nicht verfügbar.

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

Siehe auch

Funktionen (Visual Basic for Applications)

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über