Propriété Folder.ParentFolder

Article
06/13/2023

Contient l’objet Folder parent.

Cette propriété est en lecture seule.

Syntaxe

ParentFolder = Folder.ParentFolder

Valeur de la propriété

Référence d’objet à l’objet ParentFolder.

Notes

Toutes les méthodes ne sont pas implémentées pour tous les dossiers. Par exemple, la méthode ParseName n’est pas implémentée pour le dossier Panneau de configuration (CSIDL_CONTROLS). Si vous tentez d’appeler une méthode non implémentée, une erreur 0x800A01BD (décimale 445) est générée.

Exemples

L’exemple suivant montre l’utilisation correcte de ParentFolder pour JScript, VBScript et Visual Basic.

Jscript:

<script language="JScript">
    function fnFolderParentFolderJ()
    {
        var objShell    = new ActiveXObject("shell.application");
        var objFolder;
        var ssfPROGRAMS = 2;
        
        objFolder = objShell.NameSpace(ssfPROGRAMS);
        if (objFolder != null)
        {
            var objParentFolder;
                
            objParentFolder = objFolder.ParentFolder;
            if (objParentFolder != null)
            {
                alert(objParentFolder.Title);
            }
        }
    }
</script>

Vbscript:

<script language="VBScript">
    function fnFolderParentFolderVB()
        dim objShell
        
        set objShell = CreateObject("shell.application")
        if (not objShell is nothing) then
            dim objFolder
            dim ssfPROGRAMS
            
            ssfPROGRAMS = 2
            set objFolder = objShell.NameSpace(ssfPROGRAMS)
            if (not objFolder is nothing) then
                dim objParentFolder
                        
                set objParentFolder = objFolder.ParentFolder
                if (not objParentFolder is nothing) then
                    alert(objParentFolder.Title)
                end if
                set objParentFolder = nothing
            end if
            set objFolder = nothing
        end if
        set objShell = nothing
    end function
 </script>

Visual Basic :

Private Sub fnFolderParentFolderVB()
    Dim objShell    As Shell
    Dim objFolder   As Folder
    Dim ssfPROGRAMS As Long
            
    ssfPROGRAMS = 2
    Set objShell = New Shell
    Set objFolder = objShell.NameSpace(ssfPROGRAMS)
    If (Not objFolder Is Nothing) Then
        Dim objParentFolder As Folder
                
        Set objParentFolder = objFolder.ParentFolder
        If (Not objParentFolder Is Nothing) Then
            Debug.Print objParentFolder.Title
        End If
        Set objParentFolder = Nothing
    End If
    Set objFolder = Nothing
    Set objShell = Nothing
End Sub

Spécifications

Condition requise	Valeur
Client minimal pris en charge	Windows 2000 Professionnel, Windows XP [applications de bureau uniquement]
Serveur minimal pris en charge	Windows 2000 Server [applications de bureau uniquement]
En-tête	Shldisp.h
IDL	Shldisp.idl
DLL	Shell32.dll (version 4.71 ou ultérieure)

Partager via