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... 8O

PS : Pas sûr, quand même :wink:

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.