How to reach the desktop while avoiding "USERNAME"

[RandomGerman]

Hi all,

when I had some trouble with a few macros, copying picutres from a hidden presentation, I learnt that

Environ$("USERNAME") & "\AppData\Roaming\Microsoft\AddIns\"

does not work on every machine, as the USERNAME seems to be not defined correctly anywhere. Or whatever the reason is.

Environ$("appdata") & "\Microsoft\AddIns\"

worked more successful on these machines.


But is there a way to reach the desktop, too?

I have one macro, creating a folder on the desktop and storing some things there - and it should be on the desktop, as the user needs to find it later. Until now, I used

Environ("USERPROFILE") & "\Desktop\Name_of_the_new_folder\"

Is there a way to avoid using "USERPROFILE" here, too?

Environ("desktop") & "\Name_of_the_new_folder\"

is not working. But maybe there is something like this? Does anyone know?


Thank you!
RG

[Paul_Hossler]

See if this is more reliable for you

Option Explicit

Sub WheresMyDesktop()

    Dim sDesktopPath As String

    sDesktopPath = CreateObject("Shell.Application").Namespace(CVar(0)).Self.Path

    MsgBox sDesktopPath

End Sub

[John Wilson]

As well as Paul's method and USERPROFILE you can also say:

Sub findDT()
Dim oWSHShell As Object
Dim sDesktopPath As String
    Set oWSHShell = CreateObject("WScript.Shell")
    sDesktopPath = oWSHShell.SpecialFolders("Desktop")
    MsgBox sDesktopPath
    Set oWSHShell = Nothing
End Sub

[RandomGerman]

Thank you, Paul and John,

in deed, both codes work great. Are there any arguments for prefering one of them? Maybe not compatible to PPT2007 or whatever ...

[RandomGerman]

Obviously there are not. :-)

Once again, thank you!