Нужна прога чотбы скинуть названия файлов в папке в один файл (txt)

[Ninzjacont]

Нужна прога чтобы скинуть названия файлов в папке в один файл (txt), и переписать в html в виде ссылок, ну типа "a href". Или можно ли это не перетаскивая каждый файл сделать в "дримвеере"?
Может есть такая готовая прога в паскале? Сам ТР мало знаю..

Спасибо заранее..

Звучит лучше так: "Прочитать названия всех файлов и сохранить их в хтмл файл в виде ссылок"

[capta1n]

program project;
uses dos;
var
 s : searchrec;
 f : text;
begin
  findfirst ('*.*',readonly,s);
  if s.name='project.exe' then findnext(s);
  if doserror=0 then
  begin
    assign(f,'file.htm');
    rewrite(f);
    while doserror=0 do
    begin
      if s.name<>'project.exe' then
       writeln (f,'<a href="',s.name,'">',s.name,'</a><br>');
      findnext(s)
    end;
    close(f)
  end
  else writeln ('Failov v papke net')
end.

скопиленнный код помещаем в папку с файлами

[Ninzjacont]

Нужно при помощи Free Pascal компилировать



Спасибо огромное ! Очень помогли!