Page 1 sur 1
API et boite de selection d'un répertoire
Publié : jeu. 15/déc./2005 13:39
par LOULOU25
Quelqu'un connait-til l'API qui permet de selectionner un répertoire
(équivalent de la fonction PathRequester)
Merci par avance
Publié : jeu. 15/déc./2005 16:01
par Chris
Il me semble qu'il n'y a pas de fonction spécifique pour ce Dialog.
Je crois que c'est un CreateWindowEx_(), mais les paramètres...
PS : Pas sûr, quand même

Publié : jeu. 15/déc./2005 17:13
par Fred
Essaie: GetOpenFileName_()
Publié : jeu. 15/déc./2005 17:32
par Chris
Fred a écrit :Essaie: GetOpenFileName_()
GetOpenFileName_(), c'est bien l'équivalent d'un OpenFileRequester(), non.
Publié : jeu. 15/déc./2005 18:46
par KarLKoX
Code : Tout sélectionner
Procedure.s BrowseForFolder(wnd.l, titre.s)
Protected bi.BROWSEINFO
Protected retval.l, tmpPath.s, curpath.s, pos.l
bi\hwndOwner = wnd
bi\pidlRoot = 0
bi\lpszTitle = title
bi\ulFlags = #BIF_RETURNONLYFSDIRS
pidl = SHBrowseForFolder_(bi)
tmpPath = Space(#MAX_PATH)
retval = SHGetPathFromIDList_(pidl, tmpPath)
If retval
If Right(tmpPath, 1) = "\"
curpath = tmpPath
Else
If tmpPath <> ""
curpath = tmpPath + "\"
Else
curpath = ""
EndIf
EndIf
Else
curpath = "Erreur !"
EndIf
ProcedureReturn curpath
EndProcedure
MessageRequester("Vous avez choisis ce dossier", BrowseForFolder(WindowID(), "pouet") )
Publié : jeu. 15/déc./2005 18:47
par Fred
Chris a écrit :Fred a écrit :Essaie: GetOpenFileName_()
GetOpenFileName_(), c'est bien l'équivalent d'un OpenFileRequester(), non.
exactement.