Encontrando o caminho da pasta Meus Documentos

Você gostaria de obter o caminho do diretório Meus Documentos do usuário corrente?

Através do Registro do Windows é possível localizar a pasta Meus Documentos do usuários

A mesma fica armazenada na seguinte chave:

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

Abaixo segue alguns exemplos em diversas linguagens

Lotus Notes - Formula Language

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

Dim mydocspath As Variant myd = Evaluate({@RegQueryValue("HKEY_CURRENT_USER";

               "Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Shell Folders";"Personal")})

'The variable mydocspath(0) contains the path