Posez votre question Signaler

Erreur avec SelectDirectory [Résolu]

Messages postés
174
Date d'inscription
samedi 15 novembre 2003
Statut
Membre
Dernière intervention
7 août 2019
 -
Delphi / Pascal Posez votre question Signaler
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 

3 réponses

Signaler Commenter la réponse de cs_cantador
Messages postés
4992
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
27 mars 2018
 9
0
Merci
bonsoir papyvore,

essaie comme ceci : 


procedure SelectionRepertoire;
begin
  if SelectDirectory(ChoixRepertoire, [sdAllowCreate, sdPerformCreate, sdPrompt], 0) then
    ScruteDossier1.execute
  else
    exit;
end;


@+
Signaler Commenter la réponse de papyvore
papyvore
Messages postés
174
Date d'inscription
samedi 15 novembre 2003
Statut
Membre
Dernière intervention
7 août 2019
 4 -
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
Signaler Commenter la réponse de Cirec
Messages postés
3809
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
1 septembre 2019
 32
0
Merci
Salut,

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


Signaler Commenter la réponse de papyvore
papyvore
Messages postés
174
Date d'inscription
samedi 15 novembre 2003
Statut
Membre
Dernière intervention
7 août 2019
 4 -
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
Signaler Commenter la réponse de Cirec
Messages postés
3809
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
1 septembre 2019
 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,
Signaler Commenter la réponse de papyvore
papyvore
Messages postés
174
Date d'inscription
samedi 15 novembre 2003
Statut
Membre
Dernière intervention
7 août 2019
 4 -
:( 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
Répondre Posez votre question