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