【】怎么获取指定注册表位置的值？？

xdwy81129

在windows7下，用Environ无法获得桌面真实具体的位置，所以希望得到下面注册表这个位置的值来得到桌面路径，感谢大侠帮助。

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Desktop

hwc2ycy

1.     Dim WSH As Object
   
2.     Set WSH = CreateObject("WSCRIPT.SHELL")
   
3.     MsgBox WSH.specialfolders("desktop")
   
4.     MsgBox WSH.regread("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Desktop")
   
5.     Set WSH = Nothing

复制代码

注册表里表示的方法就是环境变量加桌面了。
你可以试试。直接用specialfolders读出来的比较好，已经自动转好了，而且不会受语言影响。

hwc2ycy

你用的什么系统？

hwc2ycy

1.     Dim strPath$
   
2.     strPath = Environ("userprofile") & "\桌面"
   
3.     Shell "explorer " & strPath, vbNormalFocus

复制代码

中文XP下测试的。
不过读注册表可能不会受语言影响。
话说WIN7下，可以直接把桌面换成desktop。

hwc2ycy

1.     Dim WSH As Object
   
2.     Set WSH = CreateObject("WSCRIPT.SHELL")
   
3.     MsgBox WSH.specialfolders("desktop")
   
4.     Set WSH = Nothing

复制代码

xdwy81129

hwc2ycy 发表于 2014-1-4 12:33

感谢版主赐教，你的学识真很广，我还看了你其他关于注册表的解答，很谢谢

这个的你是解答
[求助] 请问，如何判断注注册表中某文件夹是否存在？ [color=#999999 !important][color=#999999 !important][复制链接]


http://www.excelpx.com/forum.php ... =%D7%A2%B2%E1%B1%ED


很很谢谢大侠的赐教

hwc2ycy

xdwy81129 发表于 2014-1-4 12:59
感谢版主赐教，你的学识真很广，我还看了你其他关于注册表的解答，很谢谢

这个的你是解答

WIN7下应该是可以的。
VISTA开始，支持链接功能。
你可以在WIN7下进入命令窗口中，切换到USERPROFILE目录下，DIR /A就可以发现。

xdwy81129

hwc2ycy 发表于 2014-1-4 13:24
WIN7下应该是可以的。
VISTA开始，支持链接功能。
你可以在WIN7下进入命令窗口中，切换到USERPROFILE目 ...

切换到USERPROFILE目录下

很谢谢在赐教，可是不会切换目录，而且这个USERPROFILE目录我也不知道在什么位置，很感谢