Ansonsten ginge auch:
FindFirst(VerzName + '*', faAnyFile, sr) = 0
==> Problem er sieht 1. alle Dateien, 2. auch Ordner und 3. auch "." und ".." also
if (sr.Name <> '.') and (sr.Name <> '..') and ((sr.Attr and faDirectory) = faDirectory) then
und der rest dann:
Delphi-Quellcode:
ext := ExtractFileExt(sr.Name);
if (ext = '.txt') or (ext = '.htm') or (ext = '.html') or (ext = '.php') then