GetAllFiles

[Christian Seehase]

Moin ueei.net,

da gäbe es, so auf Anhieb, zwei Ansätze:

1. Lass die Schleife für alle übergebenen Endungen laufen
2. Lies alle Dateien, und prüfe, ob deren Endung in der Maske vorkommt.

Auch wenn es üblich ist ein ; als Trennzeichen zu verwenden, würde ich das nicht nehmen, denn dies ist ein gültiges Zeichen in einem Dateinamen.
Nimm lieber eines der Zeichen, die nicht vorkommen dürfen (*,\,/,",<,>,?,|,.
Optisch sticht besonders | heraus.

Für den zweiten Fall könnte man dann so testen:

if pos(AnsiUpperCase(ExtractFileExt(search.Name)+'|'),AnsiUpperCase(mask)) > 0 then ... mask müsste dann so aufgebaut sein:

Code:

.jgp|.gif|.tif|