Napomena: Funkcija, metod, objekat ili vlasništvo opisane u ovoj temi je onemogućeno ako se pokreće Microsoft Jet Expression usluga u okviru "sandbox" režima, što sprečava procenu potencijalno nebezbednih izraza. Više informacija o "sandbox" režimu potražite u okviru pomoći "sandbox režim".
Daje nisku povezanu sa promenljivom okruženja operativnog sistema. Nije dostupno na Macintosh računarima
Sintaksa
Okolinu ( { enve String | broj } )
Sintaksa funkcije okolinu ima sledeće argumente:
|
Argument |
Opis |
|
kodiranja |
Opcionalno. Izraz niske koji sadrži ime promenljive okruženja. |
|
broj |
Opcionalno. Numerički izraz koji odgovara numeričkoj redosledu niske okruženja u tabeli "niska okruženja". Argument Number može da bude bilo koji numerički izraz, ali se zaokružuje na ceo broj pre nego što se proceni. |
Napomene
Ako se u tabeli "niska okruženja" ne može pronaći invanstring , daje se niska nulte dužine (""). U suprotnom, okolinu vraća tekst dodeljen navedenoj envestring; To jest, tekst koji prati znak jednakosti (=) u tabeli "niska okruženja" za tu promenljivu okruženja.
Ako navedete broj, nalazi se u okruženju numeričkog položaja u tabeli "niska okruženja". U ovom slučaju, okolinin daje sav tekst, uključujući i ennstring. Ako na navedenom položaju ne postoji niska okruženja, okolina 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.
U ovom primeru, funkcija okolina se koristi da bi se obezbedio broj stavki i dužina izvoda iz PATH iz tabele "niska okruženja". Nije dostupno na Macintosh računarima.
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
