поиск и замена файлов в заданых каталогах

[adramelech]

Может у кого то есть исходник похожей программы поиск и замена файлов в заданых каталогах ?

[Stilet]

Например так :

unit Unit1;

interface

uses      shellapi,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
    function findA(p:string; var slist:TStringList):variant;
var    i:integer;
  Form1: TForm1;

implementation

{$R *.dfm}
  //********** FUNCTION **********
function findA;
var s:TSearchRec; lp,ep,ss:string;k:integer;
begin
ep:=ExtractFilePath(p)+'*.*';
 if FindFirst(ep,faAnyFile, s)=0 then begin
 repeat
  if (s.Name <>'.')and(s.Name <>'..') then begin
  lp:='';k:=0; while k<=i*4 do begin lp:=lp+' ';inc(k);end;
  if s.Attr=faDirectory then
   slist.Append(lp+'['+s.Name+']')
  else
    if s.Name='Doc1.doc' then <ЗАМЕНА, хотя я не понимаю что значит "замена">
    slist.Append(lp+s.Name);
   if s.Attr=faDirectory then begin
    inc(i);
    findA(ExtractFilePath(p)+s.Name+'\'+ExtractFileName(p), slist);
    dec(i);
   end;
   end;
 until FindNext(s)<>0
 end;
end;
//********** END FUNCTION ******  {}
procedure TForm1.FormCreate(Sender: TObject);

var ts:TStringList;
begin
ts:=TStringList.Create;
finda('c:\temp\*.*',ts);
ListBox1.Items:=ts;
end;

end.