[E-03] BrowseForFolder Remonter dans l'arborescence
:tagcode:
----------------------------------------
Excel 2003 SP3, Visual Basic 6.3
Pour choisir un répertoire j'essaie BrowseForFolder, code ci-dessous :
Code:
1
2
3
4
5
6
7
| Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", _
BIF_returnonlyfsdirs + BIF_dontgobelowdomain, _
"Y:\EDS_formulaires\Cats absences congés\Formulaires congé 2006")
On Error Resume Next
Set oFolderItem = objFolder.Items.Item
Chemin = oFolderItem.Path |
Je connaissais déjà GetOpenFilename utile pour chercher un fichier mais qui ne fonctionne pour un répertoire que s'il contient au moins un fichier.
Par contre la fenêtre ouvere par GetOpenFilename permet de remonter dans l'arborescence en partant de la racine choisie.
Si le 4eme parametre (Racine) est absent ou vide on part de trop haut, si on le remplit on ne peut plus remonter au dessus de la racine.
Y a t'il un moyen de remonter au dessus de la racine ?
Quelle est la siginfication des différents parametres existants :
Code:
1
2
3
4
5
6
7
8
9
10
11
| Const BIF_returnonlyfsdirs = &H1
Const BIF_dontgobelowdomain = &H2
Const BIF_statustext = &H4
Const BIF_returnfsancestors = &H8
Const BIF_editbox = &H10
Const BIF_validate = &H20
Const BIF_browseforcomputer = &H1000
Const BIF_browseforprinter = &H2000
Const BIF_browseincludefiles = &H4000
Const cdlOFNExplorer = &H80000
Const BIF_NEWDIALOGSTYLE = &H64 |
Certains se combinent en parametre 3, je ne comprends pas l'usage des 2 derniers.
Merci pour votre aide.
