Получение и измение переменной среды в VBA.

Добров Андрей
Дата: 05.03.2008 12:54:02
Получение и измение переменной среды в VBA используя MS Access 97/2000/2003.

Dim Comp As String
Comp = Environ("COMPUTERNAME")

Т.е. получу имя компьютера - SIDOROV.
Работает.

А как изменить некоторые переменные среды на время выполнения программы на VBA в MS Access. Т.е. если более конкретно при работе Access необходимо изменять некоторые переменные среды к примеру переменную TEMP.

Реально ли???
mds_world
Дата: 05.03.2008 13:30:46
К примеру, так (заменяя в реестре)
Sub ReestrAdd()
  Dim Wsh As Object
  Set Wsh = CreateObject("WScript.Shell")
  Wsh.RegWrite "HKCU\Environment\temp", "%USERPROFILE%\Local Settings\NoTemp"
End Sub
Значение переменной Temp, в данном случае будет равно "%USERPROFILE%\Local Settings\NoTemp", где %USERPROFILE%=C:\documents and settings\пользователь, но вы можете заменить на любое другое.

Насчет 97-акса не знаю, а в 2003 работает.
Добров Андрей
Дата: 05.03.2008 16:28:32
Спасибо, но это не совсем то.
1. Значение если изменю при запуске Access - останется с этим пользователем навсегда
2. Имеется другая ветка - Volatile Environment, вот здесь все перезаписывается при каждом старте компьютера.