7. Funkcja Environ ...i wszystko jasne!

• Jak znaleźć lokalizację katalogu TEMP dla plików tymczasowych?
  To proste, położenie tego katalogu zwraca funkcja:

=Environ("TEMP")

• Jak znaleźć lokalizację głównego katalogu Windows?
  To proste, położenie tego katalogu zwraca funkcja:

=Environ("windir")

• Jak znaleźć lokalizację procesora poleceń Windows, czyli zwykle pliku COMMAND.COM?
  To proste, ścieżkę dostępu do procesora poleceń zwraca funkcja:

=Environ("COMSPEC")

W Windows'98 otrzymamy zwykle 'C:\WINDOWS\COMMAND.COM'.
W WindowsNT należy się spodziewać ścieżki 'C:\WINNT\system32\CMD.EXE'.
 
Należy podkreślić przydatność tej zmiennej. Dla mniej wtajemniczonych wyjaśniam, że COMMAND.COM (lub CMD.EXE) służy do wywoływania w Shellu poleceń systemu operacyjnego typu Dir, Copy itd. Przykład skopiowania pliku za pomocą Shella i Command podaję poniżej:

Call Shell(Environ("COMSPEC") & " /c copy C:\Plik.txt F:\KopiaPliku.txt", 0)

• Jak dowiedzieć się o nazwę bieżącego użytkownika zalogowanego do Windows?
  To proste, nazwę bieżącego użytkownika zwraca funkcja:

=Environ("USERNAME")

• Jak dowiedzieć się o nazwę komputera?
  To proste, nazwę naszego komputera zwraca funkcja:

=Environ("COMPUTERNAME")

• Jak odczytać nazwę zainstalowanego systemu operacyjnego?
  To proste, nazwę systemu operacyjnego zwraca funkcja:

=Environ("OS")

Przykładowo tekst WINNT oznacza, że pracujemy w Windows NT.
 

• Itd... Funkcja Environ zwraca wartości dowolnych zmiennych, zdefiniowanych w systemie Windows.

=Environ(ZmiennaSystemowa)

Listę wszystkich zmiennych systemowych dostępnych na danym komputerze, można wyświetlić za pomocą następującej procedury:

Dim i As Integer
i = 1
Do
    Debug.Print Environ(i) 'do zmiennej można się odwołać przez jej numer
    i = i + 1
Loop Until Environ(i) = ""

Niestety radość ze stosowania funkcji Environ psuje fakt, że lista zmiennych systemowych nie jest stała i jej elementy nie występują obowiązkowo we wszystkich komputerach. Niektóre zmienne w sposób oczywisty są obecne tylko w pewnych konfiguracjach (np. zmienną CONTEXT znajdziemy w środowisku sieciowym), jednak są takie, które powinny wystąpić zawsze (np. OS), a pojawiają się tylko czasem.

Funkcja Environ jest bardzo wygodna w użyciu, jednak dobrze - na wszelki wypadek - obsłużyć  brak wymaganej zmiennej w systemie. Oto przykład:

Dim Kat As String
Kat = Environ("TEMP")
'jeśli nie ma zmiennej - procedura obsługi
If Kat = "" Then Kat = CurDir()
MsgBox Kat

K. P.