Metodo Shell.NameSpace

Crea e restituisce un oggetto Folder per la cartella specificata.

Sintassi

retVal = Shell.NameSpace(
  vDir
)

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

Parametri

vDir [in]

Tipo: Variant

Cartella per cui creare l'oggetto Folder . Questa può essere una stringa che specifica il percorso della cartella o uno dei valori ShellSpecialFolderConstants . Si noti che i nomi costanti trovati in ShellSpecialFolderConstants sono disponibili in Visual Basic, ma non in VBScript o JScript. In questi casi, i valori numerici devono essere usati al loro posto.

Valore restituito

JScript

Tipo: Cartella**

Riferimento all'oggetto Folder per la cartella specificata. Se la cartella non viene creata correttamente, questo valore restituisce Null.

VB

Tipo: Cartella**

Riferimento all'oggetto Folder per la cartella specificata. Se la cartella non viene creata correttamente, questo valore restituisce Null.

Esempio

Nell'esempio seguente viene illustrato NameSpace in uso. L'utilizzo appropriato viene visualizzato per 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

Requisiti