Søg efter filer

Følgende burde virke, men er ikke testet:

var SR: TSearchRec;
var E: Integer;
var sl: tstringlist;
begin
  sl := tstringlist.create;
  E := FindFirst(\'c:\\mappe\\*.txt\', faAnyFile, SR);
  try
    while E=0 do
    begin
      sl.loadfromfile(\'c:\\mappe\\\'+sr.name);
      sl.add(\'tilføjet linje\');
      sl.savetofile(\'c:\\mappe\\\'+sr.name);
      e := findnext(sr);
    end;
  finally
    findclose(sr);
    sl.free;
  end;
end;

der skal muligvis byttes om på parametre i findfirst-kaldet

procedure TForm1.Button1Click(Sender: TObject);
var
  sr: TSearchRec;
  Slist: Tstringlist;
  I: integer;
const
  FolderToSearch = \'C:\\Test\\\';
begin
  Slist := Tstringlist.Create;
//Find alle tekst filer
  if FindFirst(FolderToSearch + \'*.txt\', faAnyFile, sr) = 0 then try
    repeat
      if (sr.Attr and faDirectory) = 0 then
      begin
        Slist.Add(FolderToSearch + sr.Name);
      end;
    until FindNext(sr) <> 0;
  finally
    FindClose(sr);
  end;

//Renamer
  for I := 0 to Slist.Count - 1 do
  begin
    RenameFile(Slist.Strings[i], changefileext(Slist.Strings[i], \'\') + \' - My File\' + extractfileext(Slist.Strings[i]));
  end;
  Slist.Free;
end;

dkn

Den skal loade *.txt filerne ind i en Memo ne efter en og tilføje en til fire liner i ver fil.

er det ikke filnavnet du vil filføje noget til? eller er det i filen?

Det er i filen der tilføjes noget.

hej steffe Kig på http://borrisholt.com under FileIO der finder du et Filsøgnings eksempel det hedder ThreadSearch

Jens B

:-)