Discussion :

[potili2]

Bonjour
je souhaite ouvrir l'un après l'autre les fichiers d'un repertoire, les traiter et les refermer
j'ai tenté d'ouvrir avec les caractères génériques *.* mais aucun fichier n'est ouvert.
Quelle est la solution?
merci à vous.
Jean Pierre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Button1Click(Sender: TObject);
var
repertoire : string;
aaa : string  ;
MonFichier : Tstringlist;
begin
MonFichier := Tstringlist.Create;
   repertoire := 'c:\test\';
   if FileExists (repertoire + '*.*') then
   aaa:=Monfichier.Strings[0]
 
 
end;

[Gaadek]

Salut!

Je pense que tu devrais regarder du coté des fonctions 'FindFirst' et 'FindNext', spécialement dédiées au parcours des répertoires!

@+

[philnext]

?? Ton code n'est pas clair. Il n'y a pas de lien entre ta variable MonFichier et ton repertoire.

[potili2]

deux remarques:
le code n'est pas correct, c'est vrai
je l'ai reconstruit sur cet ordi, alors que je fais mes tests sur un autre, mais l'étude au pas à pas montre qu'aucun fichier n'est ouvert.
je m'étais inspiré d'un ancien article du forum
mais je ne dois pas être assez futé pour l'adapter
c'était là...
http://www.developpez.net/forums/sho...ers+repertoire

[philnext]

Tu as dans la FAQ :
http://delphi.developpez.com/faq/?pa...listerfichiers

[potili2]

merci
effectivement, cet exemple est plus clair, je l'avais pas repéré dans la FAQ.
j'avais pas compris l'utilisation de findfirst.
avec ça, je devrais y arriver.
Jean Pierre