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;
Partager