Napomena: Funkcija, metod, objekat ili svojstvo opisano u ovoj temi onemogućena je ako je usluga Microsoft Jet Expression pokrenuta u režimu sandbox, što sprečava procenu potencijalno nebezbednih izraza. Više informacija o režimu "sandbox" potražite u odeljku "režim sandbox" u pomoći.
Vraća nisku povezanu sa promenljivom okruženja operativnog sistema. Nije dostupno na Macintosh računaru
Sintaksa
Environ( { envstring | broj } )
Sintaksa funkcije Environ ima sledeće argumente:
|
Argument |
Opis |
|
niska envstring |
Opcionalno. Izraz niske koji sadrži ime promenljive okruženja. |
|
broj |
Opcionalno. Numerički izraz koji odgovara numeričkom redosledu niske okruženja u tabeli niske okruženja. Argument broja može da bude bilo koji numerički izraz, ali se zaokružuje na ceo broj pre procene. |
Napomene
Ako u tabeli niske okruženja nije moguće pronaći nisku okruženja, vraća se niska nulte dužine (""). U suprotnom, Environ daje tekst koji je dodeljen navedenom podvlačenju; to jem, tekst koji prati znak jednakosti (=) u tabeli niske okruženja za tu promenljivu okruženja.
Ako navedete broj, vraća se niska koja zamenjuje tu numeričku poziciju u tabeli niske okruženja. U ovom slučaju, Environ daje sav tekst, uključujući nabrajanje. Ako nema niske okruženja na navedenoj poziciji, Environ daje nisku nulte dužine.
Primer
Napomena: Primeri koji slede pokazuju upotrebu ove funkcije u Visual Basic for Applications (VBA) modulu. Za više informacija o radu sa VBA modulom izaberite stavku Referenca razvojnog programera sa padajuće liste pored stavke Pretraga i unesite termine u polje za pretragu.
Ovaj primer koristi funkciju Environ za obezbeđivanje broja stavke i dužine PATH iz tabele niske okruženja. Nije dostupno na Macintosh računaru.
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 IfLoop Until EnvString = ""If PathLen > 0 Then ' Display message. MsgBox MsgElse MsgBox "No PATH environment variable exists."End If
