Spezialordner

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