ACQUISIRE IL PATH O ALTRA SPECIFICA VARIABILE D'AMBIENTE
Per acquisire una determinata variabile d'ambiente si può utilizzare una funzione simile a quella riportata di seguito la quale, in questo esempio, viene richiamata da un Bottone Command1_Click() per ricercare la variabile d'ambiente Ex: path:
CODICE VISUAL BASIC 6 / VB6
Option Explicit
Private Sub Command1_Click()
Dim str As String
str = RicercaVariabileEnviroment("PATH")
End Sub
Function RicercaVariabileEnviroment(ByVal Var As String)
Dim x As Integer
Dim L As Integer
L = Len(Trim(Var))
Var = UCase$(Var)
x=1
While Environ(x) <> ""
If UCase$(Left(Environ(x), L)) <> Var Then
x=x+1
Else
RicercaVariabileEnviroment = Environ(x)
Exit Function
End If
Wend
End Function