Manuel §1.6.42    

Fonction FindNextFile

La fonction FindNextFile permet après un appel à la fonction FindFirstFile, d'identifier l'ensemble des fichiers d'un répertoire correspondant à un certain masque.

FindNextFile( Handle, &Nom) : Status

La fonction attend en paramètre le handle précedemment obtenu par un appel à FindFirstFile; en cas de succés la fonction rend un 1 positionne dans la variable Nom le nom du fichier suivant; en cas d'échec la fonction rend 0 et la variable Nom inchangée.

Par exemple, obtention de toutes les fiches références d'un répertoire

Hnd = FindFirstFile( "~/sisal/test/", "*.syn", Nom);
If Hnd then begin
  Do
    Message( Nom);
  While FindNextFile( Hnd, Nom);
  FindClose( Hnd);
End