Wildcards String

[lukdelphias]

Hallo liebes Forum,

ich habe ein Problem. Mein Programm soll einen Ordner samt Inhalt vom PC löschen. Funktioniert soweit auch sehr gut. Der Ordner wird relativ regelmäßig neu erzeugt. Allerings immer mit einem anderen Präfix. z.B. C:\Users\user.'+CompName+'\Desktop\123456_Ordner und später C:\Users\user.'+CompName+'\Desktop\789012_Ordner.
Habe mir dann eine Funktion Remove erstellt:

Delphi-Quellcode:

Remove('C:\Users\user.'+CompName+'\Desktop\Ordner');

Wie bekomme ih hier nun Wildcards hinein das ich beim löschen nur schauen muss ob das Wort Ordner im Namen vorkommt?

Ich stelle mir das so vor:

Delphi-Quellcode:

Remove('C:\Users\user.'+CompName+'\Desktop\??????Ordner');

Die Fragezeichen sollen hier also die Wildcards darstellen.
Ich hoffe einigermaßen verständlich.

Vielleicht hat jemand ne Idee.

grüße

[TiGü]

Delphi-Quellcode:

procedure RemoveFolder(const AFolderNameWithWildcard: string);
var
  SearchRecord: TSearchRec;
  BaseFilePath: string;
  FoundName: string;
const
  FILE_ATTRIBUTES = faDirectory;
begin
  if FindFirst(AFolderNameWithWildcard, FILE_ATTRIBUTES, SearchRecord) = 0 then
  begin
    BaseFilePath := ExtractFilePath(AFolderNameWithWildcard);
    repeat
      FoundName := BaseFilePath + SearchRecord.Name;

      if TDirectory.Exists(FoundName) then
        TDirectory.Delete(FoundName);
    until FindNext(SearchRecord) <> 0;

    FindClose(SearchRecord);
  end;
end;

So aufzurufen:

Delphi-Quellcode:

RemoveFolder('C:\Users\user.'+CompName+'\Desktop\*Ordner');

Wildcard ist zumeist ein Sternchen!

[Andreas13]

Hallo,
es ist ratsam, anstelle von FindClose(SearchRecord); einen qualifizierten Bezeichner

Delphi-Quellcode:

System.SysUtils.FindClose(SearchRecord);

zu verwenden, weil es u. U. Konflikt geben kann mit der gleichnamigen Procedure WinAPI.Windows.FindClose(SearchRecord); , die allerdings einen anderen Datentyp erwartet.
Gruß, Andreas

[lukdelphias]

Zitat:

Zitat von TiGü (Beitrag 1469791)

Wildcard ist zumeist ein Sternchen!

Müssen hier soviele Sterne angegeben werden wie es Zeichen sein sollen oder reicht einer?

Grüß

[lukdelphias]

Unter in deinem Quellcode ist TDirectrory ein undeklarierter Bezeicher... Sollte das eher faDirectory sein??

[lukdelphias]

noch eine Frage. Irgendwie funktioniert der Code bei mir überhaupt nicht TiGü. Ist der Code von dir getestet worden?

[TiGü]

Herrje, man muss wieder im Urschleim anfangen. :shock:

Ja, nur ein Sternchen für beliebige Kombinationen.

Also ein

Delphi-Quellcode:

'C:\temp\*_Ordner'

findet und löscht:

Code:

C:\temp\12313123_Ordner
C:\temp\1_Ordner
C:\temp\4545_Ordner
C:\temp\BlaKeksFuck_Ordner

Das muss in der uses-Klausel stehen, dann erkennt er auch TDirectory (Hier hätte ein beherzter Griff zur Hilfe oder in dieses Internet auch geholfen):

Delphi-Quellcode:

uses
  System.SysUtils,
  System.IOUtils;

[lukdelphias]

Ahh sehr schön Danke. Ja tut mir leid bin noch nicht so weit mit Delphi. Erst mein zweites kleines Projekt. :/
Das Problem bei deiner Variante ist, dass nur leere Verzeichnisse gelöscht werden können. Hast du da noch eine Idee wie man das umgehen kann, sodass auch "besetzte" Verzeichnisse gelöscht werden können.

Gruß

[Aviator]

Zitat:

Zitat von lukdelphias (Beitrag 1469802)

Hast du da noch eine Idee wie man das umgehen kann, sodass auch "besetzte" Verzeichnisse gelöscht werden können.

Gib mal beim

Delphi-Quellcode:

TDirectory.Delete()

Aufruf als zweiten Parameter noch

Delphi-Quellcode:

True

mit. Das bedeutet "Rekursiv". Siehe auch die Hilfe zu TDirectory.Delete().

[Uwe Raabe]

Wenn schon TDirectory, warum dann noch der Umweg über FindFirst?

Delphi-Quellcode:

var
  FoundName: string;
begin
  for FoundName in TDirectory.GetDirectories('C:\Users\user.'+CompName+'\Desktop', '*_Ordner') do
    TDirectory.Delete(FoundName, True);
end;