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;