'*** v11.2 *** www.dieseyer.de *****************************
'
' Datei:  specialfolders.vbs
' Autor:  dieseyer@gmx.de
' Auf:    www.dieseyer.de
'
' Die Prozedur ist Bestandteil von WinTuC_vbs.vbs (WinTuC.de)
'
'***********************************************************

  Option Explicit ' Siehe http://dieseyer.de/dse-wsh-lernen.html#OptionExpl

  Dim Tst, i

	Tst = Tst & "-: " & CreateObject("WScript.Shell").ExpandEnvironmentStrings("%ProgramFiles%") & vbCRLF

  For i = -110 to 115
	On Error Resume Next
	Tst = Tst & i & ": " & CreateObject("WScript.Shell").SpecialFolders( i ) & vbCRLF
	On Error GoTo 0
	' -: C:\Program Files
	' 0: C:\Documents and Settings\All Users\Desktop
	' 1: C:\Documents and Settings\All Users\Start Menu
	' 2: C:\Documents and Settings\All Users\Start Menu\Programs
	' 3: C:\Documents and Settings\All Users\Start Menu\Programs\Startup
	' 4: C:\Documents and Settings\[%UserName%]\Desktop
	' 5: C:\Documents and Settings\[%UserName%]\Application Data
	' 6: C:\Documents and Settings\[%UserName%]\PrintHood
	' 7: C:\Documents and Settings\[%UserName%]\Templates
	' 8: C:\WINDOWS\Fonts
	' 9: C:\Documents and Settings\[%UserName%]\NetHood
	' 10: C:\Documents and Settings\[%UserName%]\Desktop
	' 11: C:\Documents and Settings\[%UserName%]\Start Menu
	' 12: C:\Documents and Settings\[%UserName%]\SendTo
	' 13: C:\Documents and Settings\[%UserName%]\Recent
	' 14: C:\Documents and Settings\[%UserName%]\Start Menu\Programs\Startup
	' 15: H:\Favoriten
	' 16: C:\Documents and Settings\[%UserName%]\My Documents
	' 17: C:\Documents and Settings\[%UserName%]\Start Menu\Programs

	' -: C:\Programme
	' 0: C:\Dokumente und Einstellungen\All Users\Desktop
	' 1: C:\Dokumente und Einstellungen\All Users\Startmenü
	' 2: C:\Dokumente und Einstellungen\All Users\Startmenü\Programme
	' 3: C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Autostart
	' 4: C:\Dokumente und Einstellungen\[%UserName%]\Desktop
	' 5: C:\Dokumente und Einstellungen\[%UserName%]\Anwendungsdaten
	' 6: C:\Dokumente und Einstellungen\[%UserName%]\Druckumgebung
	' 7: C:\Dokumente und Einstellungen\[%UserName%]\Vorlagen
	' 8: C:\WINDOWS\Fonts
	' 9: C:\Dokumente und Einstellungen\[%UserName%]\Netzwerkumgebung
	' 10: C:\Dokumente und Einstellungen\[%UserName%]\Desktop
	' 11: C:\Dokumente und Einstellungen\[%UserName%]\Startmenü
	' 12: C:\Dokumente und Einstellungen\[%UserName%]\SendTo
	' 13: C:\Dokumente und Einstellungen\[%UserName%]\Recent
	' 14: C:\Dokumente und Einstellungen\[%UserName%]\Startmenü\Programme\Autostart
	' 15: C:\Dokumente und Einstellungen\[%UserName%]\Favoriten
	' 16: C:\Dokumente und Einstellungen\[%UserName%]\Eigene Dateien
	' 17: C:\Dokumente und Einstellungen\[%UserName%]\Startmenü\Programme
  Next

CreateObject("Scripting.FileSystemObject").OpenTextFile( WScript.ScriptFullName & ".txt", 2, true).WriteLine ( Tst )
Tst = Left( Tst, 1020 ) & "..."
MsgBox Tst, 4096, "64 :: Max. 1024 Zeichen!"


  Tst = ""
  For i = -10 to 15
	On Error Resume Next
	Tst = Tst & i & "| " & CreateObject("Scripting.FileSystemObject").GetSpecialFolder( i ) & vbCRLF
	On Error GoTo 0
'	0| C:\Windows
'	1| C:\Windows\System32
'	2| C:\Users\[%UserName%]\AppData\Local\Temp
  Next
MsgBox Tst, 4096, "76 :: Max. 1024 Zeichen!"

Wscript.Quit