Discussion :

[rasmus]

Bonjour à tous,

Auriez-vous une petite procédure pour effacer tous les fichiers d'un repertoire?
Merci, Ras'

[Dr.Who]

sous windows, avec l'API windows donc et les fonction SHFileOperation (ShellApi/FileCtrls)

[rasmus]

J'aurais dû préciser: je programme sous linux (debian)
Merci, Ras'

[winow]

Bonjour
Sous Ubuntu/Gnome
il y a ceci qui marche, a toi de l'adapter, de l'arranger/optimiser.

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
20
21
22
 
procedure TForm1.Button2Click(Sender: TObject);
 
    var xSearch: TSearchRec;
        chemin, chemin_complet: ansistring;
 
begin
 
     chemin := ExtractFilePath(Application.ExeName)+'/Sous_Dossier/';
     chemin_complet := chemin + '*.*';
 
  if FindFirst(chemin_complet, faAnyFile, xSearch) = 0 then
  begin
    repeat
      showmessage(chemin+xSearch.Name);
     { DeleteFile(chemin+xSearch.Name); }
    until
      FindNext(xSearch) <> 0;
 
    FindClose(xSearch);
  end;
end;

A+

[rasmus]

Ras'

[Invité]

Par contre le script proposé ne supprime pas récursivement les dossiers et les fichiers dans les sous-dossiers