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