[Linux] Effacer tous les fichiers d'un répertoire

Version imprimable

04/04/2010, 08h03
rasmus

[Linux] Effacer tous les fichiers d'un répertoire

Bonjour à tous,

Auriez-vous une petite procédure pour effacer tous les fichiers d'un repertoire?
Merci, Ras'
05/04/2010, 02h55
Dr.Who

sous windows, avec l'API windows donc et les fonction SHFileOperation (ShellApi/FileCtrls)
05/04/2010, 07h12
rasmus

et sous linux?

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

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

Code:

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+

06/04/2010, 07h46
rasmus

Super, merci

Ras'
04/05/2011, 14h47
Invité

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