Function GetDesktop() As String With CreateObject("wscript.shell") GetDesktop = .Regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\desktop") End With End Function
Function GetDesktop() As String With CreateObject("wscript.shell") GetDesktop = .Regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\desktop") End With End Function