Findfirst Findnext [DELPHI] - Delphi/Pascal - Programmation
Marsh Posté le 05-02-2004 à 19:11:14
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
Marsh Posté le 05-02-2004 à 20:12:37
Et sinon pas besoin de listbox, tu fais ton FindFirst/FindNext et pour chaque fichier tu le delete.
Marsh Posté le 13-04-2004 à 22:56:46
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...
Marsh Posté le 02-02-2004 à 15:35:43
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 ?
Message édité par vlacq le 03-02-2004 à 12:21:06
---------------
François