Каталог Application Data на VB

[broodling]

Как программно узнать каталог Application Data в WinXP для текущего залогиненного пользователя.

[broodling]

Собственно вот решение
в реестре читаем ключ:

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders
"AppData"="D:\Documents and Settings\User_name\Application Data"

Можно еще через переменную %appdata%, но это несколько проблематично т.к. переменная консольная и как получить ее значение в прогу на VB я не знаю.

Может какая нибудь стандартная функция есть для этого, а то я тут велосипеды изобретаю :search:

[lehha]

broodling
%userprofile%\Application Data