Blue Flower

Verweis auf einen bestimmten Ordner und deren Unterordner

Const LOCAL_SETTINGS_HISTORY = &H22&  'Internet Explorer Verlaufs-Ordner
Const MY_PICTURES = &H27&              'Ordner Eigene Bilder
Const MY_RECENT_DOCUMENTS = &H8&       'Ordners Zuletzt verwendete Dokumente
Const MY_COMPUTER = &H11&              'Ordner Arbeitsplatz
Const NetHood = &H13&                  'Ordner Netzwerkumgebung
Const Programme = &H2&                 'Ordner Programme
Const RECYCLE_BIN = &Ha&               'Papierkorb-Ordner
Const SYSTEM32 = &H25&                 'Ordner System32
Const STARTUP = &H7&                   'Autostart-Ordner
Const START_MENU = &HB&                'Startmenü-Ordner
Const ADMINISTRATIVE_TOOLS = &H2F&     'Ordner Verwaltung
Const ALL_USERS_APPLICATION_DATA = &H23& 'All Users Anwendungsdaten-Ordner
Const ALL_USERS_DESKTOP = &H19&        'Desktop für alle Anwender
Const ALL_USERS_PROGRAMS = &H17&        'alle Benutzer Ordner Programme
Const ALL_USERS_START_MENU = &H16&      'All Users Startmenü-Ordner
Const ALL_USERS_STARTUP = &H18&         'Autostart All Users
Const Application_Data = &H1a&          'Anwendungsdaten-Ordner
Const SENDTO = &H9&                     'Ordner SendTo
Const COMMON_FILES = &H2b&              'Ordner Gemeinsame Dateien
Const Control_Panel = &H3&              'Windows-Systemsteuerung
Const DESKTOP = &H10&                   'Desktop-Ordner
Const FONTS = &H14&                     'Fonts-Ordner (Schriftarten)
Const COOKIES = &H21&                   'Internet Explorer Cookies 
Const FAVORITEN = &H6&                  'Internet Explorer
Const LOCAL_APPLICATION_DATA = &H1c&    'lokaler Ordner Anwendungsdaten
Const MY_NETWORK_PLACES = &H12&         'Ordner Netzwerkumgebung
Const MY_DOCUMENTS = &H5&               'Ordner Eigene Dateien
Const MY_MUSIC = &HD&                   'Ordner Eigene Musik
Const NETWORK_CONNECTIONS = &H31&       'Ordner Netzwerkverbindungen
Const PRINTERS_AND_FAXES = &H4&         'Ordner Drucker und Faxgeräte
Const Druckumgebung = &H1b&             'Print Neighborhood-Ordner  
Const MY_VIDEOS = &Er&                  'Ordner Eigene Videos
Const TEMPLATES = &H15&                 'Ordner Vorlagen
Const TEMPORARY_INTERNET_FILES = &H20&  'Ordner Temporary Internet Files
Const user_profile = &H28&              'Benutzerprofilordner
Const WINDOWS = &H24&                   'Windows-Ordner
Const INTERNET_EXPLORER = &H1&          'Ordner Internet Explorer 

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(EINE_DER_CONSTANTEN)
Set objFolderItem = objFolder.Self
  Wscript.Echo objFolderItem.Path
Set colItems = objFolder.Items
For Each objItem in colItems
  Wscript.Echo objItem.Name  
Next