Compartir a través de


Método Shell.NameSpace

Crea y devuelve un objeto Folder para la carpeta especificada.

Sintaxis

retVal = Shell.NameSpace(
  vDir
)

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

Parámetros

vDir [in]

Tipo: Variant

Carpeta para la que se va a crear el objeto Folder . Puede ser una cadena que especifica la ruta de acceso de la carpeta o uno de los valores ShellSpecialFolderConstants . Tenga en cuenta que los nombres de constante que se encuentran en ShellSpecialFolderConstants están disponibles en Visual Basic, pero no en VBScript o JScript. En esos casos, los valores numéricos deben usarse en su lugar.

Valor devuelto

JScript

Tipo: Carpeta**

Referencia de objeto al objeto Folder de la carpeta especificada. Si la carpeta no se ha creado correctamente, este valor devuelve null.

VB

Tipo: Carpeta**

Referencia de objeto al objeto Folder de la carpeta especificada. Si la carpeta no se ha creado correctamente, este valor devuelve null.

Ejemplos

En el ejemplo siguiente se muestra NameSpace en uso. Se muestra un uso adecuado para JScript, VBScript y Visual Basic.

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

Requisitos

Requisito Value
Cliente mínimo compatible
Windows 2000 Professional, Windows XP [solo aplicaciones de escritorio]
Servidor mínimo compatible
Windows 2000 Server [solo aplicaciones de escritorio]
Encabezado
Shldisp.h
IDL
Shldisp.idl
Archivo DLL
Shell32.dll (versión 4.71 o posterior)