Viele Ordner lassen sich anzeigen mit:
Set wshShell = CreateObject("WScript.Shell")
for each element In WshShell.SpecialFolders
     MsgBox element
next
 
Die gezielte Ermittlung eines Ordners ist möglich mit:
wshShell.SpecialFolders(tag)
Als tag sind zugelassen:

AllUsersDesktop
AllUsersStartMenu
AllUsersPrograms
AllUsersStartup
Desktop
Favorites
Fonts
MyDocuments
NetHood
PrintHood
Programs
Recent
SendTo
StartMenu
Startup
Templates

Beispiel zur Anzeige des Dokumentenordners:
Set wshShell = CreateObject("WScript.Shell")
Msgbox wshShell.SpecialFolders("MyDocuments")
 

Weitere Ordner sind zu ermitteln mit:
Set objFS = CreateObject("Scripting.FileSystemObject")
msgbox objFS.GetSpecialFolder(Kennung)
 
Zugelassene Kennungen sind:

0 = WindowsOrdner
1 = SystemOrdner
2 = TempOrdner