Megjegyzés: A témakörben ismertetett függvény, metódus, objektum vagy tulajdonság le van tiltva, ha a Microsoft Jet Expression Service védőfalas üzemmódban fut, mivel ez megakadályozza az esetleg nem biztonságos kifejezések kiszűrését. A védőfalas üzemmódról a súgóban a „védőfalas üzemmód” kifejezésre keresve talál további információt.
Egy operációsrendszer-környezeti változóhoz társított sztringet adja vissza. Macintosh rendszeren nem érhető el
Szintaxis
Environ( { envstring | number } )
Az Environ függvény szintaxisa az alábbi argumentumokat foglalja magában:
argumentumok |
Leírás |
envstring |
Nem kötelező. Egy környezeti változó nevét tartalmazó sztringkifejezés. |
szám |
Nem kötelező. A környezeti sztring numerikus sorrendjének megfelelő numerikus kifejezés a környezeti sztring táblában. A szám argumentum bármilyen numerikus kifejezés lehet, de a kiértékelése előtt a függvény egész számra kerekítve lesz. |
Megjegyzések
Ha az envstring nem található a környezeti sztring táblában, a rendszer nulla hosszúságú karakterláncot ("") ad vissza. Ellenkező esetben az Environ a megadott envstringhez rendelt szöveget adja vissza; ez azt jelenti, hogy a környezeti változó környezeti sztringtáblájában az egyenlőségjelet (=) követő szöveg.
Ha számot ad meg, a környezeti sztring táblában ezt a numerikus pozíciót elfoglaló sztring lesz visszaadva. Ebben az esetben az Environ az összes szöveget visszaadja, beleértve az envstring kifejezést is. Ha a megadott pozícióban nincs környezeti sztring, az Environ nulla hosszúságú karakterláncot ad vissza.
Példa
Megjegyzés: A következő példák egy Visual Basic for Applications (VBA) modulban mutatják be a függvény használatát. A VBA használatáról a Keresés elem mellett található legördülő listából a fejlesztői forrásokat választva, majd egy vagy több keresőszót megadva kaphat további tájékoztatást.
Ez a példa az Environ függvénnyel adja meg a környezeti sztring táblából származó PATH utasítás bejegyzésszámát és hosszát. Macintosh rendszeren nem érhető el.
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