Méthode IShellDispatch. BrowseForFolder

Crée une boîte de dialogue qui permet à l’utilisateur de sélectionner un dossier, puis de retourner l’objet dossier du dossier sélectionné.

Syntaxe

retVal = IShellDispatch.BrowseForFolder(
  Hwnd,
  sTitle,
  iOptions,
  [ vRootFolder ]
)

IShellDispatch.BrowseForFolder( _
  ByVal Hwnd As Integer, _
  ByVal sTitle As BSTR, _
  ByVal iOptions As Integer, _
  [ ByVal vRootFolder As Variant ] _
) As FOLDER

Paramètres

HWND [ dans]

Type : entier

Handle de la fenêtre parente de la boîte de dialogue. Cette valeur peut être zéro.

sTitle [ dans]

Type : BSTR

Valeur de chaîne qui représente le titre affiché dans la boîte de dialogue Parcourir .

iOptions [ dans]

Type : entier

Valeur entière qui contient les options de la méthode. Il peut s’agir de zéro ou d’une combinaison des valeurs figurant dans le membre ulFlags de la structure BROWSEINFO .

vRootFolder [ dans, facultatif]

Type : variante

Dossier racine à utiliser dans la boîte de dialogue. L’utilisateur ne peut pas parcourir plus haut dans l’arborescence que ce dossier. Si cette valeur n’est pas spécifiée, le dossier racine utilisé dans la boîte de dialogue est le bureau. Cette valeur peut être une chaîne qui spécifie le chemin d’accès du 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 du dossier sélectionné.

VB

Type : dossier * *

Référence d’objet à l’objet dossier du dossier sélectionné.

Notes

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

Exemples

les exemples suivants utilisent BrowseForFolder pour afficher une fenêtre de navigation intitulée « Example » enracinée dans le dossier Windows. l’utilisation est indiquée pour JScript, VBScript et Visual Basic.

JScript :

<script language="JScript">
    function fnShellBrowseForFolderJ()
    {
        var objShell = new ActiveXObject("shell.application");
        var ssfWINDOWS = 36;
        var objFolder;
        
        objFolder = objshell.BrowseForFolder(0, "Example", 0, ssfWINDOWS);
        if (objFolder != null)
        {
            // Add code here.
        }
    }
</script>

VBScript

<script language="VBScript">
    function fnShellBrowseForFolderVB()
        dim objShell
        dim ssfWINDOWS
        dim objFolder
        
        ssfWINDOWS = 36
        set objShell = CreateObject("shell.application")
            set objFolder = objshell.BrowseForFolder(0, "Example", 0, ssfWINDOWS)
                if (not objFolder is nothing) then
                    'Add code here.
                end if
            set objFolder = nothing
        set objShell = nothing
    end function
 </script>

Visual Basic :

Private Sub fnShellBrowseForFolderVB()
    Dim objShell   As Shell
    Dim ssfWINDOWS As Long
    Dim objFolder  As Folder
    
    ssfWINDOWS = 36
    Set objShell = New Shell
        Set objFolder = objshell.BrowseForFolder(0, "Example", 0, ssfWINDOWS)
            If (Not objFolder Is Nothing) Then
                'Add code here
            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)