Traitement en s�rie des fichiers d'un r�pertoire

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;

Salut!

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

@+

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

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

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

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