Prijavite se pomoću Microsofta
Prijavi se ili izradi račun.
Zdravo,
Odaberite drugi račun.
Imate više računa
Odaberite račun putem kojeg se želite prijaviti.

Napomena: Funkcija, metoda, objekt ili svojstvo opisano u ovoj temi onemogućeno je ako je Microsoft Jet Expression Service pokrenut u načinu rada sigurnosne ograde, što onemogućuje procjenu potencijalno nesigurnih izraza. Dodatne informacije o načinu rada sigurnosne ograde potražite u pomoći u odjeljku "način rada s memorijom za testiranje".

Vraća niz povezan s varijablom okruženja operacijskog sustava. Nije dostupno na Macintosh

Sintaksa

Environ( { envstring | broj } )

Sintaksa funkcije Environ sadrži ove argumente:

Argument

Opis

envstring

Neobavezno. Nizovni izraz koji sadrži naziv varijable okruženja.

broj

Neobavezno. Brojčani izraz koji odgovara brojčanom redoslijedu niza okruženja u tablici niza okruženja. Brojčani argument može biti bilo koji brojčani izraz, ali se zaokružuje na cijeli broj prije nego što se vrednuje.


Napomene

Ako se envstring ne može pronaći u tablici niza okruženja, vraća se niz nulte duljine (""). U suprotnom , Environ vraća tekst dodijeljen navedenom envstringu; 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 brojčani položaj u tablici niza okruženja. U ovom slučaju , Environ vraća sav tekst, uključujući envstring. Ako na navedenom položaju nema niza okruženja, Environ 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 funkcija Environ koristi za unos broja i duljine naredbe PATH iz tablice niza okruženja. Nije dostupno na 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

Potrebna vam je dodatna pomoć?

Želite dodatne mogućnosti?

Istražite pogodnosti pretplate, pregledajte tečajeve za obuku, saznajte kako zaštititi uređaj i još mnogo toga.

Zajednice vam pomažu da postavljate pitanja i odgovarate na njih, pošaljete povratne informacije i čujete se sa stručnjacima s bogatim znanjem.

Jesu li vam ove informacije bile korisne?

Koliko ste zadovoljni jezičnom kvalitetom?
Što je utjecalo na vaše iskustvo?
Ako pritisnete Pošalji, vaše će se povratne informacije iskoristiti za poboljšanje Microsoftovih proizvoda i usluga. Vaš će IT administrator moći prikupiti te podatke. Izjava o zaštiti privatnosti.

Hvala vam na povratnim informacijama!

×