Funktionen Environ

Bemærk: Den funktion, metode, objekt eller egenskab, som beskrives i dette emne er deaktiveret, hvis Microsoft Jet-udtrykstjenesten er i sandkassetilstand, der forhindrer evaluering af udtryk, der muligvis ikke er sikre. Yderligere oplysninger om sandkassetilstand finder du i Hjælp ved at søge på "sandkassetilstand".

Returnerer den streng, der er knyttet til operativsystemets miljøvariabel. Ikke tilgængelig på Macintosh.

Syntaks

Environ( { envstring | tal } )

Syntaksen for funktionen Environ består af følgende argumenter:

Argument

Beskrivelse

envstring

Valgfri. Strengudtryk, der indeholder navnet på en miljøvariabel.

tal

Valgfri. Numerisk udtryk, der svarer til miljøstrengens numeriske streng i tabellen med miljøstrenge. Argumentet tal kan være et numerisk udtryk, men afrundet til et helt tal, inden det evalueres.


Bemærkninger

Hvis envstring ikke kan findes i miljøstrengtabellen, returneres der en streng med længden nul (""). I modsat fald returnerer Environ den tekst, der er tildelt den angivne envstring, dvs. den tekst, der følger efter lighedstegnet (=) i miljøstrengtabellen for den pågældende variabel.

Hvis du angiver tal, returneres den streng, der optager denne numeriske placering i miljøstrengtabellen. I dette tilfælde returnerer Environ hele teksyen, herunder envstring. Hvis der ikke er nogen miljøstreng på den angivne placering, returnerer Environ en streng med længden nul.

Eksempel

Bemærk: I de følgende eksempler demonstreres brugen af denne funktion i et VBA-modul (Visual Basic for Applications). Du kan få yderligere oplysninger om arbejde med VBA ved at vælge Udviklerreference på rullelisten ud for Søg og indtaste et eller flere udtryk i søgeboksen.

I dette eksempel anvendes funktionen Environ til at angive nummeret på og længden af indtastningen af PATH-sætningen fra miljøstrengtabellen. Ikke tilgængelig på 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
Del Facebook Facebook Twitter Twitter Mail Mail

Var disse oplysninger nyttige?

Fantastisk! Har du mere feedback?

Hvordan kan vi forbedre det?

Tak for din feedback!

×