一、问题描述：

请问我如何获取桌面的路径？

二、解决方法：

在这里分享一个获取桌面路径的函数，返回文本类型：

Public Function ZhuoMian() As String
Dim wshshell As Object
Dim strDesktop
Set wshshell = CreateObject("wscript.shell")
strDesktop = wshshell.regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\desktop")
ZhouMian = strDesktop
End Function