April 25
Le variabili di ambiente sono mantenuti dal sistema operativo Windows. Le variabili di ambiente possono essere utilizzati in script o programmi Visual Basic fare riferimento a una directory standard che potrebbe essere diversa da una macchina all'altra. Ad esempio, la variabile d'ambiente "PATH" sarà probabilmente diverso su ogni computer. "SYSTEM ROOT" è un'altra variabile ambiente diverso per ogni sistema operativo. Ci sono anche le variabili d'ambiente predefinite come "Data" e "tempo". applicazioni VB in grado di leggere le variabili d'ambiente con la funzione "Environ".
1 Creare un nuovo progetto EXE standard di Visual Basic. Un form denominato "Form1" viene creato per impostazione predefinita.
2 Dichiarare le variabili locali in caso di carico "Form1". Avrete bisogno di un numero intero, un valore booleano e una stringa per contenere il valore della variabile d'ambiente.
Dim i come Integer
Dim bFound come booleano
Dim sEnvValue as String
3 Impostare la "i" variabile pari a uno. Avanti, leggere la variabile d'ambiente in posizione di uno nell'indice e riporlo in "sEnvValue."
sEnvValue = Environ (i)
4 Loop attraverso tutte le variabili d'ambiente fino a trovare quello che si sta cercando. Fare questo con un "Mentre" l'istruzione. Questo codice imposta "bFound" a true se si trova la variabile d'ambiente "PATH".
Mentre non bFound E sEnvValue <> ""
Se Ucase (Sinistra (sEnvValue, 5)) = "PATH =" Allora
bFound = True
Altro
i = i + 1
sEnvValue = Environ (i)
Finisci se
Wend
La funzione "Ucase" converte "sEnvValue" per tutto maiuscolo, perché il confronto è tra maiuscole e minuscole. Se "PATH" non si trova, leggere la variabile d'ambiente successivo fino a che tutti abbiamo letto.
5 Controllare il valore di "bFound" per determinare quali passi per eseguire il prossimo. Ora abbiamo il valore della variabile di ambiente "PATH" che si trova in "sEnvValue" e in grado di analizzarlo, visualizzarla, inserirla in una tabella, scriverlo su un file o di qualsiasi altra azione che normalmente prendere con una variabile stringa.