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
"reidarT" <re****@eivon.nowrote in message
news:Oa**************@TK2MSFTNGP03.phx.gbl...
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