一、问题描述:
请问我如何获取桌面的路径?
二、解决方法:
在这里分享一个获取桌面路径的函数,返回文本类型:
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