Salut a tous,
sa fait pas mal de temps que je cherche comment est-ce que l´on fait pour avoir un boite de dialogue de selection de dossier :

Parce-qu´en fait mon aplli a un Tedit et à coté un bouton ( En fait c´est un truc pour la destination du fichier)
Il faut que quand on clique sur le bouton, sa ouvre la boite de dialogue de recherche de dossier ( Que je trouve pas dans les dialogue donnés) et que quand on séléctionne un dossier, on clique sur ok et là le texte du Tedit est le chemin qu´a choisis l´utilisateur.

Merci ( je sais pas si vous avez compris ! )

Salut Nico,
tu n´aurais pas par hasard un p´tit TShellTreeView dans la palette Samples?

Ben non !

Bon pas grave,
une idée serait d´utiliser un TSaveDialog pour lequel tu spécifies un nom bidon dans FileName du style ´*´ et au click sur Ok, tu récupères le répertoire en te moquant du nom de fichier,
contrairement au TOpenDialog qui oblige au clic sur un fichier.

Tiens Nico,
une base de prog:

/ /Attention : Il faut mettre l´option ofNoValidate à TRUE
/ /Si ton Edit1 est renseigné correctement, tu peux remplacer le ´´ par Edit1.Text;
SaveDialog1.InitialDir:= ´´;
SaveDialog1.FileName:= ´*´;
IF SaveDialog1.Execute THEN
Edit1.Text:= SaveDialog1.FileName;

Voilà, ça m´est enfin revenu - l´était temps.
Je pense que là voilà ta solution:

procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
s: String;
begin
/ /Tu dois ajouter FileCtrl dans ta clause Uses
/ /Le 2ème paramètre est le répertoire par défaut
S := ´´;
if SelectDirectory(´Choisissez un répertoire´, ´´, S) then
Edit1.Text:= s; / /ExtractFilePath(SaveDialog1.FileName);
end;
----
C´est aussi faisable par une API mais reste à me souvenir laquelle.

Merci à tous sa marche ! !