Slik leser Miljøvariabler i VB6

Miljøvariabler blir vedlikeholdt av Windows-operativsystemet. Miljøvariabler kan brukes i skript eller Visual Basic programmer for å referere til en standard katalog som kan være forskjellig fra en maskin til den neste. For eksempel vil "PATH" miljøvariabelen sannsynlig være forskjellig på hver datamaskin. "SYSTEM ROOT" er et annet miljø variabel som er forskjellig for hvert operativsystem. Det er også forhåndsdefinerte miljøvariabler som "DATE" og "TIME". VB-applikasjoner kan lese miljøvariabler med "Environ" -funksjonen.

Bruksanvisning

1 Opprett et nytt Standard EXE Visual Basic-prosjekt. Et skjema som heter "Form1" opprettes som standard.

2 Erklærer lokale variabler i "Form1" last event. Du trenger et heltall, en boolsk og en streng for å holde verdien av miljøvariabelen.

Dim i As Integer

Dim bFound som boolsk

Dim sEnvValue som String

3 Still "i" variabel lik en. Deretter lese miljøvariabelen i posisjon en i indeksen og lagre det i "sEnvValue."

sEnvValue = Environ (i)

4 Loop gjennom alle miljøvariabler til du finner den du søker etter. Gjør dette med en "Mens" statement. Denne koden setter "bFound" til sann hvis "PATH" miljøvariabelen ligger.

Mens Ikke bFound OG sEnvValue <> ""

Hvis UCase (Left (sEnvValue, 5)) = "PATH =" Så

bFound = True

Ellers

i = i + 1

sEnvValue = Environ (i)

Slutt om

Wend

Den "UCase" funksjonen konverterer "sEnvValue" til alle store bokstaver fordi sammenligningen er store og små bokstaver. Hvis «PATH» ikke blir funnet, lese neste miljøvariabelen før vi har lest dem alle.

5 Sjekk verdien av "bFound" for å avgjøre hvilke skritt for å utføre neste. Vi har nå verdien av "PATH" miljøvariabelen som ligger i "sEnvValue" og kan analysere det, vise det, sette det inn i en tabell, skriv det i en fil eller andre handlinger du normalt ville ta med en strengvariabel.