http://dieseyer.de • all rights reserved • © 2011 v11.4
'*** 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
http://dieseyer.de • all rights reserved • © 2011 v11.4