[White_Horse]

Сообщение от Zuzlan

...но проблема, что там где его не видит прога,она его перезаписывает новым файлом...

Попробуй поискать так, найдёшь все файлы в папке, включая и .htaccess

Код:

procedure TForm1.SearchFile(cat: string);
var
  Search:TSearchRec;
  res:integer; //результат поиска (0 или нет)
begin
  ChDir('C:\WINDOWS\system32');//Меняешь на своё
  res:=FindFirst(cat+'*.*',faAnyFile,Search); //ищем первый файл
  res:=findNext(Search);//ищем следующий файл
  While res=0 do
    begin
      if (Search.Attr=faDirectory) and ((Search.Name='.')or(Search.Name='..')) then//чтобы не было файлов . и..
      begin
        Res:=FindNext(Search);
       Continue;//продолжаем цикл
      end;

if (Search.Attr=faDirectory) then//если нашли директорию, то ищем файлы в ней
  begin
    SearchFile(cat+Search.Name+'');//рекурсивно вызываем нашу процедуру
    Res:=FindNext(Search);//ищем след. файл
    Continue;//продолжаем цикл
  end;
form1.ListBox1.Items.Add(Search.Name);//добавляем в Listbox:Tlistbox имя файла
Res:=FindNext(Search);//ищем след. файл
end;
FindClose(Search);//освобождаем пересенную поиска
 end;

end.