Ordner auf Dateien überprüfen mit Timer

[marlem]

nach dateien suchen geht generell findfirst.... findnext!
guckst du hier:

Delphi-Quellcode:

//Sucht nach der angegeben Dateimaske im Verzeichnis vom angegeben Pfad
//und gibt das Ergebnis in einer stringliste zurück.
//Beispielaufruf:    ListeTemp := SearchFilesInDirectory(quellpfad+'\GBW*.*');

function SearchFilesInDirectory(mask: string): Tstringlist;
var
  search: TSearchRec;
  directory: string;
begin
  result := tstringlist.create;
  directory := ExtractFilePath(mask);
  // Alle Dateien im angegebenen Verzeichnis suchen
  if FindFirst(mask, $23, search) = 0 then
  begin
    repeat
    result.Add(directory + search.Name);
    until FindNext(search) <> 0;
  end;
end;