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.
Programmieren - alles kontrollieren 4.941 Themen, 20.708 Beiträge
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
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