Wildcards String

[lukdelphias]

Zitat von TiGü:

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.

Ja, nur ein Sternchen für beliebige Kombinationen.

Also ein '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 von lukdelphias:

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

Gib mal beim TDirectory.Delete() Aufruf als zweiten Parameter noch True mit. Das bedeutet "Rekursiv". Siehe auch die Hilfe zu TDirectory.Delete().

[lukdelphias]

Perfekt danke das funktioniert.

Vielen Dank euch allen für die schnelle Hilfe.

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