Переменные среды windows

[lamer]

Бодрого времени суток.
Есть задачка - как задать путь к папке пользователя, чтобы он работал на любой винде? Имеется ввиду которая c:\Documents and Settings\user\...
Подозреваю что должны быть константы..но в VBA может такого и нет?

[ANDLL]

MsgBox Environ("userprofile")
Если важно именно через переменные окружения...

[lamer]

Нет, это не важно, главное чтобы решало задачу.
..О, вроде то что нужно, спасибо!

[lamer]

Вот этот путь есть возможность как-нибудь получить?
C:\Documents and Settings\user\Local Settings\Application Data\
Переменная APPDATA возвращает просто C:\Documents and Settings\user\Application Data

[Денис]

Вот этот путь есть возможность как-нибудь получить?
C:\Documents and Settings\user\Local Settings\Application Data\
Переменная APPDATA возвращает просто C:\Documents and Settings\user\Application Data

А ты делай так:

Код: Выделить всё

Dim strAppData as String
strAppData = Environ("userprofile") & "\Local Settings\Application Data\"

[alibek]

Нет, не делай так.
Лучше смотри ключ реестра HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Local AppData

[lamer]

Я тоже сначала остановился как подсказал Денис.
alibek не скажешь где можно найти примерчик чтения значений из реестра? Везде ссылки на этот пример http://www.iqsoft.narod.ru/VB_KEY_REESTR.htm, но тупо копипастом чет не помогает( Ругается на константы(

[ANDLL]

Тогда уж лучше
http://msdn.microsoft.com/en-us/library/bb762204(VS.85).aspx

[alibek]

Поищи на форуме modRegistry.