Wildcards String

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

[geldis]

Etwas älter der Threat aber:

In dem definierten Verzeichnis »ModPath« befinden sich unterschiedlich viele der mit [StartShips]..... gesetzten Verzeichnisse. Beispiel:

Code:

[StartShips] Flaggschiff
[StartShips] Kreuzer
[StartShips] Tankschiff
[StartShips] U-Boot
[StartShips] Values

Der nachstehende Befehl zum entfernen dieser Verzeichnisse aus dem »ModPath« funktioniert einwandfrei:

TDirectory.GetDirectories(ModPath+'\', '*[StartShips]') do TDirectory.Delete(FoundName, True); Aber er lässt immer ein Verzeichnis über. In diesem Beispiel [StartShips] Flaggschiff, letztlich immer das erste Verzechniss, das alphabetisch oben steht.

Was ist das?

geldis

[himitsu]

Trenn es doch erstmal auf?

* findet GetDirectories alles?
* und löscht Delete das dann auch wirklich?

Ich hätte eher gedacht, dass garnichts gelöscht wird, weil ähhhhh
'*[StartShips]'
'[StartShips]*'


PS: ich bin mir sicher, dass +'\' nicht nötig sein sollte.

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