Alle Dateien löschen außer txt Dateien

[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