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")
Lotus Notes - LotusScript
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
Ver também