Freigeben über


Shell.NameSpace-Methode

Erstellt ein Folder-Objekt für den angegebenen Ordner und gibt es zurück.

Syntax

retVal = Shell.NameSpace(
  vDir
)

Shell.NameSpace( _
  ByVal vDir As Variant _
) As Folder

Parameter

vDir [in]

Typ: Variant

Der Ordner, für den das Folder-Objekt erstellt werden soll. Dies kann eine Zeichenfolge sein, die den Pfad des Ordners oder einen der ShellSpecialFolderConstants-Werte angibt. Beachten Sie, dass die in ShellSpecialFolderConstants gefundenen Konstantennamen in Visual Basic, aber nicht in VBScript oder JScript verfügbar sind. In diesen Fällen müssen die numerischen Werte an ihrer Stelle verwendet werden.

Rückgabewert

JScript

Typ: Ordner**

Objektverweis auf das Folder-Objekt für den angegebenen Ordner. Wenn der Ordner nicht erfolgreich erstellt wurde, gibt dieser Wert NULL zurück.

VB

Typ: Ordner**

Objektverweis auf das Folder-Objekt für den angegebenen Ordner. Wenn der Ordner nicht erfolgreich erstellt wurde, gibt dieser Wert NULL zurück.

Beispiele

Das folgende Beispiel zeigt die Verwendung von NameSpace . Die ordnungsgemäße Verwendung wird für JScript, VBScript und Visual Basic angezeigt.

Jscript:

<script language="JScript">
    function fnShellNameSpaceJ()
    {
        var objShell = new ActiveXObject("shell.application");
        var objFolder;
        var ssfWINDOWS = 36
        
        objFolder = objShell.NameSpace(ssfWINDOWS);
        if (objFolder != null)
        {
            alert(objFolder.Title);
        }
    }
</script>

Vbscript:

<script language="VBScript">
    function fnShellNameSpaceVB()
        dim objShell
        dim objFolder
        
        set objShell = CreateObject("shell.application")
        set objFolder = objShell.NameSpace("C:\\")

        if (not objFolder is nothing) then
            alert(objFolder.Title)
        end if

        set objFolder = nothing
        set objShell = nothing
    end function
 </script>

Visual Basic:

Private Sub fnShellNameSpaceVB()
    Dim objShell  As Shell
    Dim objFolder As Folder

    Set objShell = New Shell
    Set objFolder = objShell.NameSpace(ssfPERSONAL)

    If (Not objFolder Is Nothing) Then
        Debug.Print objFolder.Title
    End If

    Set objFolder = Nothing
    Set objShell = Nothing
End Sub

Anforderungen

Anforderung Wert
Unterstützte Mindestversion (Client)
Windows 2000 Professional, Windows XP [nur Desktop-Apps]
Unterstützte Mindestversion (Server)
Windows 2000 Server [nur Desktop-Apps]
Header
Shldisp.h
IDL
Shldisp.idl
DLL
Shell32.dll (Version 4.71 oder höher)