Поиск каталога

[D_A_akella]

Доброго времени суток.
Вроде как нет такой темы. поиск по крайней мере ничего не показал.
в общем
такая вот беда....

есть каталог на пример D:\base1\ в нем есть еще 3 каталога Bbase1,Bbase2,Bbase3 нужно чтобы программа заходила в каталог D:\base1\, есть возможность указат только каталог, находила эти папки и архивировала их...

если именно код самой процедуры поиска покажите буду очень очень признателен.....
заранее спасибо)

[bitSoft]

Class TSearchRec,
ishi na forume esty mnogoe

[D_A_akella]

как это ни странно, но на форуме я многое поискал, есть только поиск ФАЙЛОВ в ПАПКАх, но никак не папок в папках.

Class TSearchRec, если не ошибаюсь работает с FindFirst а она, опть же если не ошибаюсь занимаешь поиском ФАЙЛОВ.

Запись типа TSearchRecord определяет структуру данных, используемую подпрограммами FindFirst и FindNext для хранения информации искомого файла.

Если я в чем то не прав то поправте)))
вопрос в СТ актуален.

[bitSoft]

u TSerachRec esti faDirectory ,

 if (SearchRec.Attr and faDirectory) = faDirectory then ShowMessage(SearchRec.Name); // eto i ПАПКА

[D_A_akella]

честно ничего не понял(

begin
        DirCat:=POut+'\'+PoutName;
        //if NOT DirectoryExists(sDir) then
        //ForceDirectories(DirCat);
        p:= FindFirst(DirCat,faDirectory,DirPathN);
        findcat:=dircat+string(DirPathN.Name);
        Arr_findCat[0]:=string(DirPathN.Name);
        o:=1;
        while p = 0 do
          begin
            p:=Findnext(dirpathn);
            filename1:=dirpathn.Name;
            Arr_findCat[o]:=filename1;
            inc(o);
          end;

вот код...в FindFirst в свойсвах поствил типа faDerectory. а толку..DirPathN.Name пустое...