SpecialFolders (VBS)

object.SpecialFolders(objWshSpecialFolders)

Values are:

  • AllUsersDesktop
  • AllUsersStartMenu
  • AllUsersPrograms
  • AllUsersStartup
  • Desktop
  • Favorites
  • Fonts
  • MyDocuments
  • NetHood
  • PrintHood
  • Programs
  • Recent
  • SendTo
  • StartMenu
  • Startup
  • Templates
Dim WshShell, sDesinationPath
Set WshShell = WScript.CreateObject("WScript.Shell")
sDesinationPath = WshShell.SpecialFolders("AllUsersStartMenu")

Source: Microsoft