Hier also die Routine zum Durchsuchen eines Verzeichnisses. Diese Routine ruft dann die Routine Search mit dem gefundenen Dateinamen inkl. Pfad auf. Diese hast Du wohl schon
Delphi-Quellcode:
procedure FindFiles(Pfad, Mask: String);
var
SR: TSearchRec;
begin
// letzten backslash bei Bedarf anhängen.
if AnsiLastChar(Pfad)^ <> '\' then
Pfad := Pfad + '\';
if FindFirst(Pfad + Mask, faAnyFile, SR) = 0 then
repeat
if SR.Attributes and faDirectory = 0 then
[color=#ff0044]Search(Pfad + SR.Name);[/color]
until FindNext(SR) <> 0;
FindClose(SR);
end;
[color=#0019ff]
Aufruf mit:
FindFiles('C:\Temp', '*.ch.txt');
[/color]
...
...