Nach Dateityp suchen und dann löschen

[Larsi]

Hi,
ich schaffe es so rekursiv nach Dateien zu suchen, jedoch möchte ich nicht, dass sie nur gesucht werden, sie sollen auch gleich gelöscht werden!

Delphi-Quellcode:

procedure GetFilesInDirectory(Directory: String; const Mask: String;
                              List: TStrings;
                              WithSubDirs, ClearList: Boolean);

procedure ScanDir(const Directory: String);
var
  SR: TSearchRec;
begin
  if FindFirst(Directory + Mask, faAnyFile and not faDirectory, SR) = 0 then try
    repeat
      List.Add(Directory + SR.Name)
    until FindNext(SR) <> 0;
  finally
    FindClose(SR);
  end;

  if WithSubDirs then begin
    if FindFirst(Directory + '*.*', faAnyFile, SR) = 0 then try
      repeat
        if ((SR.attr and faDirectory) = faDirectory) and
           (SR.Name <> '.') and (SR.Name <> '..') then
          ScanDir(Directory + SR.Name + '\');
      until FindNext(SR) <> 0;
    finally
      FindClose(SR);
    end;
  end;
end;

begin
  List.BeginUpdate;
  try
    if ClearList then
      List.Clear;
    if Directory = '' then Exit;
    if Directory[Length(Directory)] <> '\' then
      Directory := Directory + '\';
    ScanDir(Directory);
  finally
    List.EndUpdate;
  end;
end;

Ich hoffe mir kann jemand daraus eine Abänderung machen, dass sie also die Prozedur gleich auch noch die Dateien löscht.

Als Verwendungsbeispiel:

Delphi-Quellcode:

 GetFilesInDirectory('C:\', '*.*', Listbox1.Items, False, True);

Am Besten wäre natürlich dass man einfach noch ein Boolean Wert hinzufügen könnte :). Vielleicht geht dass auch mit ner For Schleife mit der Listbox dann aber ich glaube dass dauert dann viel länger oder?



MFG Lars Wiltfang

[Kroko1999]

nach List.Add() einfach DeleteFile aufrufen, oder habe ich etwas überlesene?

[Larsi]

Alos ich soll unter diese Zeile:
List.Add(Directory + SR.Name)

Das hier hinzufügen:
DeleteFile(Directory + SR.Name)



???

[grenzgaenger]

IPO --> IPO

Dateien suchen und zwischenspeichern (mit pfaden), in der zweiten phase den zwischenspeicher abarbeiten.

IPO bitte nicht vermischen.

[Larsi]

Danke es geht!!! :):):):):) Vielen Vielen Dank, ich dachte ich müsste die Idee von mir jetzt schon aufgeben^^

[Larsi]

Geht doch nicht :( Es werden zwar Daten gelöscht aber immer nur die die nicht in einem Unterverzeichniss liegen, wass muss ich machen?

[RavenIV]

Zitat:

Zitat von Larsi

Alos ich soll unter diese Zeile:
List.Add(Directory + SR.Name)

Das hier hinzufügen:
DeleteFile(Directory + SR.Name)

Genau.
Du hast den Eintrag doch schon gefunden.
Warum löschst Du ihn dann nicht gleich, anstatt ihn in eine Liste einzufügen?

[Die Muhkuh]

Zitat:

Zitat von grenzgaenger

IPO --> IPO

IPO = Input - Processing - Output = EVA?

Delphi-Quellcode:

repeat
  List.Add(Directory + SR.Name);
  DeleteFile(Directory + SR.Name);
until FindNext(SR) <> 0;

[Larsi]

Und wo ist vom Code her jetzt ein Unterschied, mein Problem ist ja jetzt dass der Inhalt Unterordner nicht gelöscht wird!

[Die Muhkuh]

Zitat:

Zitat von Larsi

Und wo ist vom Code her jetzt ein Unterschied, mein Problem ist ja jetzt dass der Inhalt Unterordner nicht gelöscht wird!

Wenn das hier:

Delphi-Quellcode:

GetFilesInDirectory('C:\', '*.*', Listbox1.Items, False, True);

Dein Aufruf ist, ist das auch kein Wunder. Vielleicht solltest Du mal schauen, was der Parameter "WithSubDirs" macht, den Du mit false belegst...