Napomena: Funkcija, način, objekt ili svojstvo opisano u ovoj temi onemogućeno je ako je Microsoft Jet Expression servis pokrenut u načinu rada s izdvojenom funkcijom, čime se sprječava vrednovanje potencijalno nesigurnih izraza. Dodatne informacije o načinu rada s izdvojenom pomoću pretraživanja potražite u odjeljku "Izdvojeni način rada".
Vraća niz povezan s varijablom okruženja operacijskog sustava. Nije dostupno na Macintoshu
Sintaksa
Environ ( { envstring | broj } )
Sintaksa funkcije Environ sadrži sljedeće argumente:
|
Argument |
Opis |
|
envstring |
Dodatno. Nizovni izraz koji sadrži naziv varijable okruženja. |
|
broj |
Dodatno. Numerički izraz koji odgovara brojčanom redoslijedu niza okruženja u tablici niza okruženja. Argument Number može biti bilo koji numerički izraz, ali je zaokružen na cijeli broj prije vrednovanja. |
Napomene
Ako se envstring ne može pronaći u tablici niz okruženja za okoliš, vraća se niz nulte duljine (""). U suprotnom, Environ vraća tekst dodijeljen navedenom envstring-u; To jest, tekst koji slijedi znak jednakosti (=) u tablici niza okruženja za tu varijablu okruženja.
Ako navedete broj, vraća se niz koji zauzima taj numerički položaj u tablici – string (okolina). U ovom slučaju, environ vraća sav tekst, uključujući envstring. Ako u navedenom položaju nema niza okruženja, Environment vraća niz nulte duljine .
Primjer
Napomena: Primjeri koji slijede prikazuju korištenje te funkcije u modulu jezika Visual Basic for Applications (VBA). Da biste pronašli dodatne informacije o radu s VBA-om, na padajućem popisu uz stavku Traži odaberite stavku Referenca za razvojne inženjere pa unesite jedan ili više izraza u okvir pretraživanja.
U ovom se primjeru koristi funkcija Environ za isporuku broja unosa i dužine PATH izvatka iz tablice niza okruženja. Nije dostupno na Macintoshu.
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
