====== Spezialordner ======

Viele Ordner lassen sich anzeigen mit:
<code VBScript [enable_line_numbers="true"]> 
  Set wshShell = CreateObject("WScript.Shell")
  for each element In WshShell.SpecialFolders
       MsgBox element
  next
</code>   

Die gezielte Ermittlung eines Ordners ist möglich mit:
<code VBScript [enable_line_numbers="true"]> 
  wshShell.SpecialFolders(tag)
</code>  
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:

<code VBScript [enable_line_numbers="true"]> 
  Set wshShell = CreateObject("WScript.Shell")
  Msgbox wshShell.SpecialFolders("MyDocuments")
</code>   

Weitere Ordner sind zu ermitteln mit:

<code VBScript [enable_line_numbers="true"]> 
  Set objFS = CreateObject("Scripting.FileSystemObject")
  msgbox objFS.GetSpecialFolder(Kennung)
</code>   

Zugelassene //Kennungen// sind:

  * 0 = WindowsOrdner
  * 1 = SystemOrdner
  * 2 = TempOrdner