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 |
|
| MIDL |
|
| DLL |
|