IShellDispatch. NameSpace, méthode

Crée et retourne un objet Folder pour le dossier spécifié.

Syntaxe

retVal = IShellDispatch.NameSpace(
  vDir
)

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

Paramètres

vdir [ dans]

Type : variante

Dossier pour lequel créer l’objet dossier . Il peut s’agir d’une chaîne qui spécifie le chemin d’accès au dossier ou l’une des valeurs ShellSpecialFolderConstants . notez que les noms de constantes trouvés dans ShellSpecialFolderConstants sont disponibles dans Visual Basic, mais pas dans VBScript ou JScript. Dans ce cas, les valeurs numériques doivent être utilisées à leur place.

Valeur de retour

JScript

Type : dossier**

Référence d’objet à l’objet dossier pour le dossier spécifié. Si le dossier n’est pas créé avec succès, cette valeur retourne null.

VB

Type : dossier**

Référence d’objet à l’objet dossier pour le dossier spécifié. Si le dossier n’est pas créé avec succès, cette valeur retourne null.

Notes

Cette méthode est implémentée et accessible par le biais de la méthode Shell. Namespace .

Exemples

les exemples suivants illustrent l’utilisation de l' espace de noms dans JScript, VBScript et 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

Spécifications

Condition requise Valeur
Client minimal pris en charge
Windows 2000 Professional, Windows XP [ desktop apps uniquement]
Serveur minimal pris en charge
Windows 2000 Server - [Applications de bureau uniquement]
En-tête
Shldisp. h
MIDL
Shldisp. idl
DLL
Shell32.dll (version 4,71 ou ultérieure)