Bonjour,

j'essais de supprimer des fichiers qui sont listés dans une ListBox

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
for i:=0 to ListBox3.Count-1 do
begin
            provi:=ExtractFilePath(Application.ExeName)+'dab00\'+ nomprovi + ListBox3.Items[i] + '.del';
            AssignFile(fich_provi,provi);
            try
            CloseFile(fich_provi);
            except
            end;
            Erase(fich_provi);
end;
je récupère bien mes noms de fichier (j'ai vérifié) mais j'ai une erreur E/S 32 au moment du "Erase" que je ne comprend pas.
Merci