在2000/XP下，对登陆的任意用户，如何用VB得到“附件--通讯”这个目录的路径？

Question

要用代码实现，不是右键看它的属性.
谢谢先！

Answer 1

用环境变量 %USERPROFILE%
在我这儿 "%USERPROFILE%\Start Menu" = "C:\Documents and Settings\Administrator\Start Menu"

Answer 2

简单。VB调用注册表.看%USERPROFILE%指向到哪了...

Answer 3

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders]
"AppData"="C:\\Documents and Settings\\Administrator\\Application Data"
"Cookies"="C:\\Documents and Settings\\Administrator\\Cookies"
"Desktop"="C:\\Documents and Settings\\Administrator\\桌面"
"Favorites"="C:\\Documents and Settings\\Administrator\\Favorites"
"NetHood"="C:\\Documents and Settings\\Administrator\\NetHood"
"Personal"="D:\\My Documents"
"My Pictures"="D:\\My Documents\\My Pictures"
"PrintHood"="C:\\Documents and Settings\\Administrator\\PrintHood"
"Recent"="C:\\Documents and Settings\\Administrator\\Recent"
"SendTo"="C:\\Documents and Settings\\Administrator\\SendTo"
"Start Menu"="C:\\Documents and Settings\\Administrator\\「开始」菜单"
"Templates"="C:\\Documents and Settings\\Administrator\\Templates"
"Programs"="C:\\Documents and Settings\\Administrator\\「开始」菜单\\程序"
"Startup"="C:\\Documents and Settings\\Administrator\\「开始」菜单\\程序\\启动"
"Local Settings"="C:\\Documents and Settings\\Administrator\\Local Settings"
"Local AppData"="C:\\Documents and Settings\\Administrator\\Local Settings\\Application Data"
"Cache"="C:\\Documents and Settings\\Administrator\\Local Settings\\Temporary Internet Files"
"History"="C:\\Documents and Settings\\Administrator\\Local Settings\\History"
"Fonts"="C:\\WINNT\\Fonts"
"Administrative Tools"="C:\\Documents and Settings\\Administrator\\「开始」菜单\\程序\\管理工具"

Answer 4

Private Sub Command1_Click()
    Debug.Print Environ("USERPROFILE") & "\「开始」菜单\程序\附件\通讯"
End Sub