FindFirst и FindNext

[Nullerset]

Всем привет, я уже неделю мучаюсь с FindFirst и Findnext , лазил в гугле везде, ничего не понял, да и примеров нету нормальных.

Есть задача вывести в консоль все файлы которые находятся во всех папках на диске C: , помогите пожалуйста, уже неделю мучаюсь.

[Ezhik Kihze]

да и примеров нету нормальных

Да ну...

http://www.google.ru/search?client=o...hannel=suggest

[Человек_Борща]

да и примеров нету нормальных.

Не ври. Ты просто не искал.

Позвольте я пну вас носом http://www.delphibasics.ru/FindFirst.php

[eoln]

Ну и для полноты пну ещё в сторону поиска FindFirstFile. У него есть некоторые способности, которые могут пригодится (например, определение размера больших файлов)

[Nullerset]

Сообщение от Ezhik Kihze

Да ну...

http://www.google.ru/search?client=o...hannel=suggest

Хм спасибо, видимо плохо запросы делал

[Nullerset]

Сообщение от Человек_Борща

Не ври. Ты просто не искал.

Позвольте я пну вас носом http://www.delphibasics.ru/FindFirst.php

Я был там, надо внимательней вопрос читать, мне надо список ВСЕХ файлов во всех ПАПКАХ и ПОДПАПКАХ на диске C:

[Человек_Борща]

Ответ: ЭТО плюс РЕКУРСИЯ

[XeruH]

Здесь даже гугл не нужен. Все есть в справке.

[FaTaL]

Вот примерчик:

procedure TForm1.FindFile(Dir: string);
var
  SR: TSearchRec;
  FindRes: Integer;
  Kol:integer;
begin
  FindRes := FindFirst(Dir + '*.*', faAnyFile, SR);
  while FindRes = 0 do
  begin
    if ((SR.Attr and faDirectory) = faDirectory) and
      ((SR.Name = '.') or (SR.Name = '..')) then
    begin
      FindRes := FindNext(SR);
      Continue;
    end;

    // если найден каталог, то
    if ((SR.Attr and faDirectory) = faDirectory) then
    begin
      // входим в процедуру поиска с параметрами текущего каталога +
      // каталог, что мы нашли
      FindFile(Dir + SR.Name + '\\');
      FindRes := FindNext(SR);
      // после осмотра вложенного каталога мы продолжаем поиск
      // в этом каталоге
      Continue; // продолжить цикл
    end;

    ListBox1.Items.Add(SR.Name);
    FindRes := FindNext(SR);
  end;
  FindClose(SR);
end;

[Nullerset]

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

Вот примерчик:

procedure TForm1.FindFile(Dir: string);
var
  SR: TSearchRec;
  FindRes: Integer;
  Kol:integer;
begin
  FindRes := FindFirst(Dir + '*.*', faAnyFile, SR);
  while FindRes = 0 do
  begin
    if ((SR.Attr and faDirectory) = faDirectory) and
      ((SR.Name = '.') or (SR.Name = '..')) then
    begin
      FindRes := FindNext(SR);
      Continue;
    end;

    // если найден каталог, то
    if ((SR.Attr and faDirectory) = faDirectory) then
    begin
      // входим в процедуру поиска с параметрами текущего каталога +
      // каталог, что мы нашли
      FindFile(Dir + SR.Name + '\\');
      FindRes := FindNext(SR);
      // после осмотра вложенного каталога мы продолжаем поиск
      // в этом каталоге
      Continue; // продолжить цикл
    end;

    ListBox1.Items.Add(SR.Name);
    FindRes := FindNext(SR);
  end;
  FindClose(SR);
end;

Спасибо огромное!!!