Get the path of special folders

If you need to know where is the Desktop located on a different computer than yours, you can get this goal with vbs Wink

Copy and Paste the following code into a textfile and rename its extension to .vbs, doubleclick on it and see.

Code

GeSHi (vb):
Set WshShell = WScript.CreateObject("WScript.Shell")
'---------- List of special folders ----------
'following folders you can get
'AllUsersDesktop
'AllUsersStartMenu
'AllUsersPrograms
'AllUsersStartup
'Desktop
'Favorites
'Fonts
'MyDocuments
'NetHood
'PrintHood
'Programs
'Recent
'SendTo
'StartMenu
'Startup
'Templates
 
'--- Get Desktop folder
  strDesktop = WshShell.SpecialFolders("Desktop")
'--- Create a Shell-link on desktop
Set oShellLink = WshShell.CreateShortcut(strDesktop & "\Shortcut Script.lnk")
    oShellLink.TargetPath = WScript.ScriptFullName
    oShellLink.WindowStyle = 1
    oShellLink.Hotkey = "Ctrl+Alt+e"
    oShellLink.IconLocation = "notepad.exe, 0"
    oShellLink.Description = "Shortcut Script"
    oShellLink.WorkingDirectory = strDesktop
    oShellLink.Save
'--- Create a URL-link on desktop
Set oUrlLink = WshShell.CreateShortcut(strDesktop & "\Microsoft Web Site.url")
    oUrlLink.TargetPath = "http://www.microsoft.com"
    oUrlLink.Save
 
Created by GeSHI 1.0.7.20

MSDN Link