Método Shell.NameSpace

Cria e retorna um objeto Folder para a pasta especificada.

Sintaxe

retVal = Shell.NameSpace(
  vDir
)

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

Parâmetros

vDir [in]

Tipo: Variant

A pasta para a qual criar o objeto Folder . Essa pode ser uma cadeia de caracteres que especifica o caminho da pasta ou um dos valores ShellSpecialFolderConstants . Observe que os nomes constantes encontrados em ShellSpecialFolderConstants estão disponíveis no Visual Basic, mas não em VBScript ou JScript. Nesses casos, os valores numéricos devem ser usados em seu lugar.

Valor retornado

JScript

Tipo: Pasta**

Referência de objeto para o objeto Folder para a pasta especificada. Se a pasta não for criada com êxito, esse valor retornará nulo.

VB

Tipo: Pasta**

Referência de objeto para o objeto Folder para a pasta especificada. Se a pasta não for criada com êxito, esse valor retornará nulo.

Exemplos

O exemplo a seguir mostra o NameSpace em uso. O uso adequado é mostrado para JScript, VBScript e 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