Alle Dateien löschen außer txt Dateien

[Gast]

Hallo,

wollte wiessen wie ich ALLE Dateien aus einem Verzeichnix löschen kann ausser Dateien die man nicht löschen will. z.B., dass alle Dateien aus dem Ordner Test gelöscht werden bis auf z.B. txt dateien .. wie geht das ?


Habe bissher den Befehl:

Code:

DateienLoeschen('c:\test\','*.*');

Am liebsten würde ich es so machen, dass z.B. Checkbox1 für txt dateien sein soll und wenn man diese Anwählt wird alles gelöscht bis auf diese txt dateien ..

Ich hoffe, dass es eine andere Lösung gibt als, dass man alle Dateien schreiben muss die gelöscht werden müssen. Also nicht so:

Code:

DateienLoeschen('c:\test\','*.jpg'); 
DateienLoeschen('c:\test\','*.bmp'); 
DateienLoeschen('c:\test\','*.html');

Greetz!
Tigerhead

PS: Hoffe, dass ihr mich versteht ;)

[fkerber]

Hi!

Dann zeig doch mal die Procedure Dateienlöschen her.


Ciao Frederic

[Luckie]

Erstell eine Dateiliste mit FindFirs, Findnext und lösche dann mit SHFileoperation

[ReDoX]

Hi vieleich könnte man das mit ExtractFileExt() machen und in einer schleife alle einträge durchgehen und dann

Delphi-Quellcode:

if ExtractFileExt() <> 'txt' then

ich hoffe ich konnte dir helfen

Mfg MrScholz

[Gast]

okay thx werde es mal versuchen .. :)

[mirage228]

Hi,

vorsicht! Die Erweiterung kann auch groß oder klein geschrieben werden.
Zudem gibt ExtractFileExt() den Punkt mit zurück.

Daher müsste es heissen:

Delphi-Quellcode:

if AnsiLowerCase(ExtractFileExt(DateiName)) = '.txt' then
  // ...

mfG
mirage228