Bonsoir à tous,
Sur un projet, qui consiste a supprimer des dossiers, plus des fichiers, je cherche a faire une vérification pour savoir si ces derniers sont bien supprimés?
Dans ce cas, il sera affiché, X supprimé, ou dans le cas d'une erreur de suppression, X non supprimé.
Est-ce que un code de ce type, pourrait fonctionner:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19 procedure ScruterDossiers(Folder: string); // Chercher si les fichers (Tableau Files) existe dans le dossier procedure SearchInFolder; var I: Integer; F : TextFile; begin for I := Low(Files) to High(Files) do if FileExists(Folder + Files[i]) then Form1.Memo1.Lines.Add(Folder + Files[i] + ': trouvé !'); Writeln(F,Folder + Files[i] + ': trouvé !'); DeletFile(Files[i]); If FileExists(Files[i]) then begin Writeln(F, Files[i] + ':Non supprimé!'); Closefile(F); end;
Merci pour vos réponses.
Partager