Nota
La funzione, il metodo, la proprietà o l'oggetto descritto in questo argomento è disabilitato se Microsoft Jet Expression Service è in esecuzione in modalità sandbox, che impedisce la valutazione delle espressioni potenzialmente pericolose. Per altre informazioni sulla modalità sandbox, cercare "modalità sandbox" nella Guida.
Restituisce la stringa associata a una variabile di ambiente del sistema operativo. Non disponibile su Macintosh
Sintassi
Environ( { envstring | number } )
Gli argomenti della sintassi della funzione Ambiente sono i seguenti:
| Argomento | Descrizione |
|---|---|
| envstring | Facoltativo. Espressione stringa contenente il nome di una variabile di ambiente. |
| numero | Facoltativo. Espressione numerica corrispondente all'ordine numerico della stringa di ambiente nella tabella ambiente-stringa. L'argomento numero può essere qualsiasi espressione numerica, ma viene arrotondato a un numero intero prima di essere valutato. |
Osservazioni
Se envstring non viene trovato nella tabella ambiente-stringa, viene restituita una stringa di lunghezza zero (""). In caso contrario, Environ restituisce il testo assegnato all'envstring specificato; ovvero il testo dopo il segno di uguale (=) nella tabella delle stringhe di ambiente per tale variabile di ambiente.
Se si specifica numero, viene restituita la stringa che occupa quella posizione numerica nella tabella delle stringhe di ambiente. In questo caso, Environ restituisce tutto il testo, incluso envstring. Se non è presente alcuna stringa di ambiente nella posizione specificata, Environ restituisce una stringa di lunghezza zero.
Esempio
Nota
Gli esempi seguenti illustrano l'uso di questa funzione in un modulo di Visual Basic, Applications Edition (VBA). Per altre informazioni sull'uso di VBA, selezionare Riferimenti per sviluppatori nell'elenco a discesa accanto a Cerca e immettere uno o più termini nella casella di ricerca.
In questo esempio viene utilizzata la funzione Environ per fornire il numero di voce e la lunghezza dell'istruzione PATH dalla tabella delle stringhe di ambiente. Non disponibile con 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