xp 操作系统桌面的通用路径如何表示？

HVB6 发布于 2014-08-23 21:58， 2643 次点击

以下是网上的说明：
Administrator用户的桌面路径：C:\Documents and Settings\Administrator\桌面如果没有修改的话，一般都是C:\Documents and Settings\用户名\桌面
但是也有人会将桌面修改到D盘，路径就不一定了。
本人也查看几台电脑（xp的操作系统的，打开它们时无“用户”和”密码“提示），的确如此。因为一些自己写的应用程序不是放在”桌面“的，但计算结果的文件又想放在”桌面“，所以需要一个通用路径”桌面“的表示方法。请各位高手帮帮忙。

[ 本帖最后由 HVB6 于 2014-8-23 22:44 编辑 ]

5 回复

bczgvip2014-08-24 03:06

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders
读取注册表吧。Desktop

HVB62014-08-24 09:33

回复 2 楼 bczgvip

昨晚在网上找到的较方便的：
Private Sub Command1_Click()
   Set sys_infm = CreateObject(")
   UserName = sys_infm.UserName '用户名
   MsgBox UserName
   桌面通用路径= "C:\Documents and Settings\" & UserName & "\桌面\"
End Sub
测试几台电脑，都正确。
谢谢您的回复。

风吹过b2014-08-24 09:50

'定义二个对象,一个路径
Dim WshShell As Object, StrDesktop As String
'创建一个脚本对象'
Set WshShell = CreateObject("wscript.shell")
'取桌面的路径'
StrDesktop = WshShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Desktop")
If Right(StrDesktop, 1) <> "" Then StrDesktop = StrDesktop & "\"

读注册表是王道。

bczgvip2014-08-24 15:20

【但是也有人会将桌面修改到D盘】？？？
开始 - 运行 - cmd
set [回车]
还有更简单的呐。
msgbox environ$("USERPROFILE") & "\桌面\"

HVB62014-08-24 16:26

十分感谢两位版主的帮忙。