Wildcards String

[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;