Recherche:

Ok, j'ai un début de réponse :


procedure Affiche_Fichier(Item : String;
Index : Positive;
Quit : in out Boolean) is
begin
put_Line(String);
end;

Et le bout de programme précédent ne te suffit pas ? Pourquoi t'embêter avec Find ?

Que veux-tu faire exactement ? Comment veux-tu utiliser le Find ?

Et si tu essaie ça :


with Ada.Text_Io, Gnat.Directory_Operations;
use Ada.Text_Io, Gnat.Directory_Operations;
procedure Main is

Current_Dir_Type : Dir_Type;
Readed_Dir :...

Essaie GNAT.Directory_Operations. En fait, on gère un directory comme un fichier dans lequel les items sont les noms des fichiers du directory ;).