Programmieren - alles kontrollieren 4.941 Themen, 20.708 Beiträge

Bitte um Hilfe bei VBS-Script

Kolti / 11 Antworten / Flachansicht Nickles

Ich möchte den Namen des Ordners abfragen, in welchem die Gemeinsamen Dateien sind.
Aber er mag mich nicht.
Kann mir das bitte einer korrigieren?

Dim objWinShell
Set objWinShell = CreateObject("Shell.Application")
msgbox objWinShell.NameSpace(&H2B)

Die msgbox bringt eine Fehlermeldung.
Wenn ich sie dim, dann kommt Typenunverträglichkeit.

Danke.

bei Antwort benachrichtigen
T-Rex Kolti „Bitte um Hilfe bei VBS-Script“
Optionen
Option Explicit

Const COMMON_FILES = &H2B&

Dim objSHell, objFolder

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(COMMON_FILES)
WScript.Echo objFolder.Items.Item.Path
Set objFolder = Nothing
Set objShell = Nothing
 GrüßeT-Rex 
bei Antwort benachrichtigen
Laufzeitfehler Kolti