'*** 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