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