Erreur avec SelectDirectory [Résolu]
A voir également:
- Delphi selectdirectory
- Selectdirectory delphi - Meilleures réponses
- Selectdirectory - Meilleures réponses
- SelectDirectory + bouton créer un nouveau dossier ✓ - Forum - Delphi / Pascal
- SelectDirectory multiple ✓ - Forum - Delphi / Pascal
- Choisir un répertoire.. - Forum - Delphi / Pascal
- Utilisation de SelectDirectory !!! comment ? - Forum - Delphi / Pascal
- Delphi / Pascal : Selectdirectory avec une checkboxe. - CodeS SourceS - Guide
3 réponses
cs_cantador
- Messages postés
- 4716
- Date d'inscription
- dimanche 26 février 2006
- Statut
- Modérateur
- Dernière intervention
- 27 mars 2018
bonsoir papyvore,
essaie comme ceci :
@+
essaie comme ceci :
procedure SelectionRepertoire;
begin
if SelectDirectory(ChoixRepertoire, [sdAllowCreate, sdPerformCreate, sdPrompt], 0) then
ScruteDossier1.execute
else
exit;
end;
@+
Salut,
j'ai testé le bout de code avec Delphi 2009 & Tokyo 10.2
et j'ai pas eut d'erreur !!!
j'ai testé le bout de code avec Delphi 2009 & Tokyo 10.2
et j'ai pas eut d'erreur !!!
effectivement avec le code que tu propose il n'y a pas d'erreur .
J'avais une exception avec
quand je clic sur annuler.
si je choisi ,
c'est seulement par ce que la boite de dialogue me va mieux
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
justement c'est avec ce code que j'ai fait le teste:
Cordialement,
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,
- Messages postés
- 178
- Date d'inscription
- samedi 15 novembre 2003
- Statut
- Membre
- Dernière intervention
- 21 décembre 2019
4merci 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.