Erreur avec SelectDirectory [Résolu]

papyvore 155 Messages postés samedi 15 novembre 2003Date d'inscription 5 avril 2018 Dernière intervention - 16 janv. 2018 à 09:56 - Dernière réponse : papyvore 155 Messages postés samedi 15 novembre 2003Date d'inscription 5 avril 2018 Dernière intervention
- 24 mars 2018 à 14:05
Bonjour,


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

papyvore
Afficher la suite 

Votre réponse

6 réponses

cs_cantador 4996 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;


@+
papyvore 155 Messages postés samedi 15 novembre 2003Date d'inscription 5 avril 2018 Dernière intervention - 22 mars 2018 à 09:08
salut
merci de la proposition j'avais testé cette solution mais ça ne marchait pas d'autant que
if SelectDirectory(Chemin, [sdAllowCreate, sdPerformCreate, sdPrompt], 0) then

et
if not SelectDirectory('Choisir un dossier', ExtractFileDrive(Chemin), Dir, [sdNewUI]) then

n'ouvrent pas la même boite de dialogue.
je reste alors sur ma solution merci quand même.
Commenter la réponse de cs_cantador
Cirec 4224 Messages postés vendredi 23 juillet 2004Date d'inscriptionModérateurStatut 5 juin 2018 Dernière intervention - 22 mars 2018 à 13:54
0
Merci
Salut,

j'ai testé le bout de code avec Delphi 2009 & Tokyo 10.2
et j'ai pas eut d'erreur !!!


papyvore 155 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
Commenter la réponse de Cirec
Cirec 4224 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;


Cordialement,
papyvore 155 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 :)
Commenter la réponse de Cirec

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.