Opmerking
De functie, de methode, het object of de eigenschap die in dit onderwerp wordt beschreven, is uitgeschakeld als de Microsoft Jet Expression-service wordt uitgevoerd in de sandboxmodus. Hierdoor wordt de evaluatie van potentieel onveilige expressies voorkomen. Zoek in de Help naar 'sandbox-modus' voor meer informatie over de sandbox-modus.
Deze functie geeft de tekenreeks als resultaat die is gekoppeld aan een omgevingsvariabele van het besturingssysteem. Niet beschikbaar voor de Mac.
Syntaxis
Environ( { omgevingsgetal | } )
De syntaxis van de functie Environ bevat de volgende argumenten:
| Argument | Beschrijving |
|---|---|
| omgevingsvar | Optioneel. Een tekenreeksexpressie met de naam van een omgevingsvariabele. |
| getal | Optioneel. Een numerieke expressie die overeenkomt met de numerieke positie van de omgevingstekenreeks in de tabel met omgevingstekenreeksen. Het argument getal kan bestaan uit elke numerieke expressie, maar wordt afgerond op een geheel getal voordat het wordt geëvalueerd. |
Opmerkingen
Als omgevingsvar niet wordt gevonden in de tabel met omgevingsreeksen, wordt een tekenreeks met de lengte nul ("") geretourneerd. Anders retourneert Environ de tekst die is toegewezen aan de opgegeven omgevingsvar; Dat wil zeggen, de tekst die volgt op het gelijkteken (=) in de tabel met omgevingsreeksen voor die omgevingsvariabele.
Als u getal opgeeft, wordt de tekenreeks die deze numerieke positie in de tabel met omgevingsreeksen inneemt, als resultaat gegeven. In dit geval retourneert Environ alle tekst, inclusief omgevingsvar. Als er zich geen omgevingsreeks bevindt op de opgegeven positie, retourneert Environ een tekenreeks met de lengte nul.
Voorbeeld
Opmerking
In de volgende voorbeelden wordt het gebruik van deze functie in een VBA-module (Visual Basic for Applications) toegelicht. Meer informatie over het werken met VBA vindt u door in de vervolgkeuzelijst naast Zoeken de optie Referentie voor ontwikkelaars te selecteren en een of meer termen in het zoekvenster te typen.
In dit voorbeeld wordt de functie Environ gebruikt om het nummer van de vermelding en de lengte van de PATH instructie uit de tabel met omgevingsreeksen op te geven. Niet beschikbaar voor de Mac.
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