API et boite de selection d'un répertoire

LOULOU25 · Message par **LOULOU25** » jeu. 15/déc./2005 13:39

Quelqu'un connait-til l'API qui permet de selectionner un répertoire
(équivalent de la fonction PathRequester)
Merci par avance

Chris · Message par **Chris** » jeu. 15/déc./2005 16:01

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

Message par **Fred** » jeu. 15/déc./2005 17:13

Essaie: GetOpenFileName_()

Chris · Message par **Chris** » jeu. 15/déc./2005 17:32

Fred a écrit :Essaie: GetOpenFileName_()

GetOpenFileName_(), c'est bien l'équivalent d'un OpenFileRequester(), non.

KarLKoX · Message par **KarLKoX** » jeu. 15/déc./2005 18:46

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") )

Message par **Fred** » jeu. 15/déc./2005 18:47

Chris a écrit :
Fred a écrit :Essaie: GetOpenFileName_()
GetOpenFileName_(), c'est bien l'équivalent d'un OpenFileRequester(), non.

exactement.