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


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

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

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

'定义二个对象,一个路径
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 & "\"

读注册表是王道。

收到的鲜花

• HVB6 于 2014-08-24 16:22 送鲜花  3朵   附言：我很赞同

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

收到的鲜花

• HVB6 于 2014-08-24 16:22 送鲜花  3朵   附言：我很赞同

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