papyvore155
Messages postés samedi 15 novembre 2003Date d'inscription
5 avril 2018
Dernière intervention
-
16 janv. 2018 à 09:56 - Dernière réponse : papyvore155
Messages postés samedi 15 novembre 2003Date d'inscription
5 avril 2018
Dernière intervention
- 24 mars 2018 à 14:05
if not SelectDirectory('Choisir un dossier', ExtractFileDrive(Dir), Dir, [sdNewUI]) then exit else begin ScruteDossier(Dir, '*.jpg', attributs, True, '', ''); ........ end;
cette solution marche bien
mais celle ci provoque une exception ??? je comprend pas pourquoi
if SelectDirectory('Choisir un dossier', ExtractFileDrive(Dir), Dir, [sdNewUI]) then begin ScruteDossier(Dir, '*.jpg', attributs, True, '', ''); .......... end else exit;
j'ai une exception sur le if quand je clic annuler; . étonnant pour moi
si quelqu'un peut m'expliquer merci
cs_cantador4996
Messages postés dimanche 26 février 2006Date d'inscriptionModérateurStatut
27 mars 2018
Dernière intervention -21 mars 2018 à 18:36
0
Merci
bonsoir papyvore,
essaie comme ceci :
procedure SelectionRepertoire; begin if SelectDirectory(ChoixRepertoire, [sdAllowCreate, sdPerformCreate, sdPrompt], 0) then ScruteDossier1.execute else exit; end;
papyvore155
Messages postés samedi 15 novembre 2003Date d'inscription
5 avril 2018
Dernière intervention -22 mars 2018 à 14:55
effectivement avec le code que tu propose il n'y a pas d'erreur .
J'avais une exception avec
if SelectDirectory('Choisir un dossier', ExtractFileDrive(Dir), Dir, [sdNewUI]) then begin ScruteDossier(Dir, '*.jpg', attributs, True, '', ''); .......... end else exit;
quand je clic sur annuler.
si je choisi ,
if not SelectDirectory('Choisir un dossier', ExtractFileDrive(Dir), Dir, [sdNewUI]) then exit
c'est seulement par ce que la boite de dialogue me va mieux
Cirec4224
Messages postés vendredi 23 juillet 2004Date d'inscriptionModérateurStatut
5 juin 2018
Dernière intervention -23 mars 2018 à 20:32
0
Merci
justement c'est avec ce code que j'ai fait le teste:
uses FileCtrl;
procedure TForm1.Button1Click(Sender: TObject);
var
Dir: string;
begin
Dir := ExtractFilePath(Application.ExeName);
if SelectDirectory('Choisir un dossier', ExtractFileDrive(Dir), Dir, [sdNewUI]) then
begin
// ScruteDossier(Dir, '*.jpg', attributs, True, '', '');
// ..........
end
else
exit;
end;
papyvore155
Messages postés samedi 15 novembre 2003Date d'inscription
5 avril 2018
Dernière intervention -24 mars 2018 à 14:05
:( désolé effectivement je viens de le test hors de mon prog initial et ça marche très bien.
je vais rependre mon prog pour essayer de comprendre où j'ai m..
si je trouve je posterais d'où vient mon erreur.
merci d'avoir insisté ça va me forcer un peu a réfléchir :)
merci de la proposition j'avais testé cette solution mais ça ne marchait pas d'autant que
et
if not SelectDirectory('Choisir un dossier', ExtractFileDrive(Chemin), Dir, [sdNewUI]) thenn'ouvrent pas la même boite de dialogue.
je reste alors sur ma solution merci quand même.