How to get the path of the Window Desktop folder?

[KHW24]

Dear all,
The Desktop paths for different Window system and for different users are
not the same . How can I get the Destop path for the Window system under
which my VBA program is running?

Best regards,
KHW24

 

[Jay Freedman]

Use the Windows Scripting Shell:

Dim WSHShell
Dim DTpath As String

Set WSHShell = CreateObject("WScript.Shell")
DTpath = WSHShell.SpecialFolders("Desktop")

MsgBox DTpath

Set WSHShell = Nothing

--
Regards,
Jay Freedman
Microsoft Word MVP
Email cannot be acknowledged; please post all follow-ups to the
newsgroup so all may benefit.