Find All users Desktop

[reidarT]

How do I find the all Users Desktop.
I want to put a shortcut there?
And at the same time I want to add a shortcut to the 'StartBar'

reidarT

 

[Gino]

Hope this helps
Watch for line wrap

Module Module1
Sub Main()
Dim folderPath As String
Dim tempPath As String
tempPath = (System.Environment.GetFolderPath _
(Environment.SpecialFolder.CommonApplicationData))
folderPath = tempPath.Replace("Application Data", "Desktop")
Console.WriteLine(folderPath)
Console.ReadLine()
End Sub
End Module