取得桌面路径

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")