Массовая обработка файлов

[bionicle]

Не знаю как тему было назвать точнее, но делфи занимаюсь недавно, дальше основных задачек пока ничего не делал

1.В данный момент есть папка с файлами .htm (1.htm, 2.htm и т.п), необходимо все файлы преименовать в 1n.htm, 2n.htm, т.е. массовое переименовывание файлов, вручную нереально, т.к. файлов около 20тысяч.

2. С этой же папкой необходимо сделать след процедуру: открытие файла 1.htm, выдергивание имени до .htm, добавление строки %name%.htm | %name%n.htm, закрытие файла и так со всеми.

Не подскажите как реализовать или хотя бы ссылкой на тему подходящую для меня?

Заранее спасибо.

[evg_m]

работа с файлом TstringList + F1 + methods
pos copy Delete Insert +F1

поиск файлов FindFirst FindNext + F1

[Serge_Bliznykov]

вот программка.
генерирует ALLREN.BAT файл для переименования.

program Cr_RenameBat;

{$APPTYPE CONSOLE}
uses SysUtils,classes;

var
  SearchRec: TSearchRec;
  TS : TStringList;
  t:string;
begin
  TS := TStringList.Create;
  if FindFirst('*.htm*', faAnyFile, SearchRec)=0 then
  begin
    repeat
      if (SearchRec.Attr and faDirectory) <> faDirectory then
          TS.Append('ren "'+SearchRec.Name+'"  "'+
            ChangeFileExt(SearchRec.Name,'')+'n'+ExtractFileExt(SearchRec.Name)+'"');
    until FindNext(SearchRec) <> 0;
    FindClose(SearchRec);
    TS.SaveToFile('allren.bat');
  end;
end.