список каталогов

[VVVadim]

Привет всем! Напишите пожалуйста функцию, котрая бы перебирала все каталоги, заходила бы в подкаталоги и выполняла бы какое-нить действие над файлами(всеми). Заранее спасибо

[mutabor]

http://www.programmersforum.ru/showthread.php?t=15900

[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;

procedure TForm1.Button1Click(Sender: TObject);
begin
listbox1.Clear;
FindFile(edit1.Text);
end;

[VVVadim]

спасибо конечно, во всем разобрался, но...это немного не то. А вот что мне надо:
функция, которая созвращает список дисков кампа;
функция, которая возвращает список подкаталогов данного каталога;
функция, которая возвращает список файлов данного каталога.
Я всеже надеюсь что такие существуют и не придется писать вручную.

[dimonbest]

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

спасибо конечно, во всем разобрался, но...это немного не то. А вот что мне надо:
функция, которая созвращает список дисков кампа;

http://programmersforum.ru/showthrea...E8%F1%EA%EE%E2

[Stilet]

функция, которая возвращает список файлов данного каталога.

А чем же примеры не устраивают? Ну если так не нравится пользуй TFileListBox

функция, которая возвращает список подкаталогов данного каталога;

TDirectoryListBox [FileCtrl]

функция, которая созвращает список дисков кампа;

TDriveComboBox [FileCtrl]

[VVVadim]

Я бы уже это сделал если бы писал просто ... прогу, а я пишу резидентную. Я не использую Forms, graphics, dialogs... короче

uses
   windows,
   classes,
   sysutils;

[Stilet]

пишу резидентную

Эт как?

Ну в общем если не хочеш контролами то WIN API FindFirst...FindNext.
Пример см. выше.

[VVVadim]

это значит ее не видать, висит в процессах ... постараюсь че нить придумать

[Stilet]

это значит ее не видать, висит в процессах

А причем тут отсутствие контролов?
Я могу и оконную прогу сделать невидимой, и тем не менее эти вышеприведенные контролы будут работать нормательно.