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