Je voudrais construire une fonction qui utilise findnext et findfirst pour lister les fichiers dans un répertoire. Ensuite je voudrais supprimer ces fichiers un à un. Comment-fait-on lorsque l'on a la liste des fichiers dans listbox1 pour les supprimer dans le dossier ?
 

heu je sais pas si j'ai bien compris, mais aparament si tu a deja la liste des fichiers tu passes directement par DeleteFile() sans passer par les FindFirst / Next / Close  
 
nan
 

Et sinon pas besoin de listbox, tu fais ton FindFirst/FindNext et pour chaque fichier tu le delete.

procedure DeleteFiles;
var Toufik: TSearcheRec;
 
begin
  if FindFirst('Votre chemain ici \*.*', faAnyFile, Toufik) = 0 then
  begin
    repeat
      DeleteFile('Votre chemain ici \'+ Toufik.Name);
    until FindNext(Toufik) <> 0;
  end;
  CloseFind(Toufik);
end;
       
          Bonne chance...