Hallo, ich möchte eine Routine zur Diskussion stellen: Sie löscht alle Dateien (außer versteckte Dateien) und Ordner in einem Verzeichnis. Da alles was mit dem Löschen von Dateien zu tun hat, potentiell fatale Folgen haben kann, wäre ich froh eure Kommentare dazu zu hören ...

zusammenfalten · markieren

Delphi-Quellcode:

procedure MyDeleteAllNoHidden(const Path, WildCard: string);
// Löscht alle Dateien und Ordner (außer versteckte Dateien) im Verzeichnis Path!!!
// Aufrufbeispiel: MyDeleteAllNoHidden('D:\MyDir\ADir\', '*');
var
  SR: TSearchRec;
  AllFiles: string;
begin
  if FindFirst(Path + WildCard, (faAnyFile or faDirectory) and not faHidden, SR) = 0 then
  repeat
    if (SR.Name <> '.') and (SR.Name <> '..') then
    begin
      //AllFiles := AllFiles + Path + SR.Name + #13#10;
      if JclFileUtils.IsDirectory(Path + SR.Name) then
        JclFileUtils.DeleteDirectory(Path + SR.Name, True)
      else
        DeleteFile(Path + SR.Name);
    end;
  until FindNext(SR) <> 0;
  FindClose(SR);
  //MessageDlg(AllFiles, mtInformation, [mbOK], 0);
end;

Und was willst du da hören? Du bist dir ja durchaus bewusst, was du löschen willst. Warum nicht?

Zitat von quendolineDD:

Und was willst du da hören? Du bist dir ja durchaus bewusst, was du löschen willst. Warum nicht?

Naja, es könnte ja sein, dass die Attribut-Kombination versteckte Tücken hat, oder sonst irgendwas ...