ABC = Environ ("windir")
И ВСЁ!
Но и это ещё не всё! Также можно получить следующие переменные:
ABC = Environ ("TMP") 'директория временных файлов TEMP
ABC = Environ ("BLASTER") 'координаты звуковой карты
ABC = Environ ("PATH") 'пути, объявленные в autoexec.bat
НО И ЭТО ВСЁ ЕЩЁ НЕ ВСЁ!!!!
Чтобы получить имя и значение переменной, в скобках вместо строки надо поставить номер переменной (или индекс?).
Вставьте следуюшую процедуру в окно Code, запустите проект, кликните на форме увидите список всех переменных и их значений!
Private Sub Form_Click()
'берём переменную и присваиваем ей единицу
m = 1
'запускаем цикл, который увеличивает переменную m каждый
'раз на единицу и подсовывает её функции Environ
Do
'присваеваем перменной EnvString возвращаемую переменную,
'соответсвующую номеру m
EnvString = Environ(m)
'печатаем переменную, соответствующую номеру m
Print Environ(m)
'переменную m увеличиваем на один
m = m + 1
'если переменная EnvString всё ещё не пустая - крутим дальше...
Loop Until EnvString = ""
End Sub
И теперь все, кто недолюбливает API-функции (по-моему их вообще мало, кто долюбливает
) могут пользоваться только этой строчкой!