Find fil

Benyt TScnFile... Den kan kun virke bedre end Windows' egen fil-skanner, der altid lyver (i hvert fald over for mig) - Jeg fandt den på Torry's Delphi Pages:
http://www.torry.net/vcl/filedrv/search/tscnfile.zip

unit Unit1;

interface

uses
  SysUtils, Forms, Dialogs;

type
  TForm1 = class(TForm)
    procedure FormShow(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation
{$R *.dfm} // Include form definitions


procedure TForm1.FormShow(Sender: TObject);
var
  searchResult : TSearchRec;
begin
  // loop all files in current dir
  if FindFirst('*.*', faAnyFile, searchResult) = 0 then begin
    repeat
      if Pos('HEJ',AnsiUpperCase(searchResult.Name)) <> 0 then ShowMessage('"Hej" fundet i: '+searchResult.Name);
    until FindNext(searchResult) <> 0;

    // Must free up resources used by these successful finds
    FindClose(searchResult);
  end;
end;

end.

du mener at søge i en tekst fil og lignende ikke

altså ikke søge efter filnavnet men søge i indholdet af filerne gør du ikke?

Jeg mener søge efter filnavnet.

nå ok
det kunne ellers være smart med et program der søger i filerne

>> thecokegay,
Det har du så fået en løsning til...