|
1 |
object.SpecialFolders(objWshSpecialFolders) |
Values are:
- AllUsersDesktop
- AllUsersStartMenu
- AllUsersPrograms
- AllUsersStartup
- Desktop
- Favorites
- Fonts
- MyDocuments
- NetHood
- PrintHood
- Programs
- Recent
- SendTo
- StartMenu
- Startup
- Templates
|
1 2 3 |
Dim WshShell, sDesinationPath Set WshShell = WScript.CreateObject("WScript.Shell") sDesinationPath = WshShell.SpecialFolders("AllUsersStartMenu") |
Source: Microsoft