Propriété Folder.Title

Article
06/13/2023

Contient le titre du dossier.

Cette propriété est en lecture seule.

Syntaxe

strTitle = Folder.Title

Valeur de la propriété

Chaîne contenant le titre de l’objet.

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 utilise Title pour récupérer le titre du dossier contenant les groupes de programmes de l’utilisateur (généralement « Programmes »). Une utilisation correcte est indiquée pour JScript, VBScript et Visual Basic.

Jscript:

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

Vbscript:

<script language="VBScript">
    function fnFolderTitleVB()
        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
                alert(objFolder.Title)
            end if
            set objFolder = nothing
        end if
        set objShell = nothing
    end function
 </script>

Visual Basic :

Private Sub fnFolderTitleVB()
    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
        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 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