Discussion :

[berpi]

Bonjour,

J'ai l'arborescence suivante : (noms fictifs pour cette présentation !)
C:\Program Files\Dossier_A\ et le dossier_A contient lui-même 2 dossiers : Dossier_B et Dossier_C.

J'espère être clair pour tous !

Je place sur ma forme un bouton Btn1 et un OpenDialog1.

Le code est le suivant :

procedure TForm1.Btn1Click(Sender: TObject);
begin
OpenDialog1.InitialDir := 'C:\Program Files\Dossier_A\';
if OpenDialog1.Execute then
begin
...
etc.

OpenDialog1 s'ouvre prépositionné sur Dossier_A, jusque là, tout est normal.
je choisis son sous-dossier Dossier_B puis un fichier de ce sous-dossier. OpenDialog1 se referme.
Tout est normal.

A un autre moment du déroulement de mon programme, je re-sollicite Btn1.

Et là, OpenDialog1 s'ouvre prépositionné sur Dossier_B (le dernier appelé) alors que dans ma procédure commence toujours par :

OpenDialog1.InitialDir := 'C:\Program Files\Dossier_A\'; (voir plus haut)

Il me semble que OpenDialog1 n'en tient pas compte et se repositionne sur le dernier dossier appelé !

Je souhaite qu'à chaque appel par le bouton Btn1, OpenDialog1 s'ouvre sur le dossier Dossier_A.

Comment le forcer à obéir à la commande InitialDir programmée ?

Merci de m'avoir lu. A vous lire...

Amitiés.

Pierre. (ps : je suis en Delphi 7 Entreprise)

[Ph. B.]

Bonjour,

Il me semble que OpenDialog1 n'en tient pas compte et se repositionne sur le dernier dossier appelé !

Je souhaite qu'à chaque appel par le bouton Btn1, OpenDialog1 s'ouvre sur le dossier Dossier_A.

Tout simplement parce que la propriété FileName contient la précédente valeur valide. Réinitialisez la avant l'appel à Execute :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
  OpenDialog1.FileName := '';
  if OpenDialog1.Execute then
    //...

[berpi]

Bonjour Philippe,
Alors là, je suis sidéré !!!
Tout d'abord, pour la promptitude de ta réponse (même un dimanche...)
ensuite parce que ça fonctionne et enfin pourquoi je n'ai pas pensé à ta solution, si simple mais tellement efficace.
En conclusion, il y a toujours sur ce site, des personnes sympas et, de surcroit, plus doués et réactifs que moi.

Merci.

Pierre.