Определяем путь к директории 'My Documents' ("Мои Документы") в Lotus Notes

Оригинал статьи [EN] :
http://www-1.ibm.com/support/docview.wss?rs=475&context=SSKTWP&dc=DB520&dc=DB560&uid=swg21297361&loc=en_US&cs=UTF-8&lang=en&rss=ct475lotus

Определяем путь к директории 'My Documents' ("Мои Документы") в Lotus Notes

Задача

Получить полный путь к размещению "My Documents"("Мои Документы") из Lotus Notes® приложений на платформе Microsoft Windows®.

Решение

Путь к папке "My Documents"("Мои Документы") храниться в переменной в Registry:

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders --> Personal.


На формулах есть функция доступа к значениям в регистре - @RegQueryValue.

ПРИМЕЧАНИЕ: Эта функция появилась в Lotus Notes/Domino® начиная с релиза 5.0.2.

Пример вызова на @Formula.
В данном примере возвращается полный путь и записывается во временную переменную"mydocs":

mydocs:=@RegQueryValue("HKEY_CURRENT_USER";"Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Shell Folders"; "Personal")

Пример вызова на LotusScript
В LotusScript нет эквивалента функции, по-этому используем Evaluate для выполнения @Formula:

Dim mydocspath As Variant
mydocspath = Evaluate({@RegQueryValue("HKEY_CURRENT_USER"; "Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Shell Folders"; "Personal")})

Technorati Tags: lotus code, lotus notes, codestore, @RegQueryValue