Всем привет....
У меня проблема есть одна. Фаил не могу найти здесь я.

Короче намучался прямо с этой прогой. Мелкие ошибки не заметные на
первый взгляд меня просто убивают.

Мне нужна програмулька поиска фаила на диске, за одно составление
полного дерева. Я знаю, что это не сложно, но всё же.

Вот здесь проход всех подкаталогов, правда с другой целью, но думаю изменить не составит труда:

http://www.forum.vingrad.ru/cgi-bin....0%F2%E0

Всё работает кроме CD. Т.е. на сд он показывает тока корень. В подкаталоги он не заходит. Я не знаю в чём причина.

Скорее всего потому что на CD каталоги ReadOnly - там где идёт сравнение атрибута faDirectory надо добавить и faReadOnly

Цитата

Скорее всего потому что на CD каталоги ReadOnly - там где идёт сравнение атрибута faDirectory надо добавить и faReadOnly

Не совсем так.
Вот чо у меня получилось:
Function MyRemoveDir(sDir : String) : Boolean;
var iIndex : Integer;
    SearchRec : TSearchRec;
    sFileName : String;
begin
Result := False;
sDir := sDir + '\*.*';
iIndex := FindFirst(sDir, faAnyFile, SearchRec);
while iIndex = 0 do begin
sFileName := ExtractFileDir(sDir)+'\'+SearchRec.Name;
if DirectoryExists(sFileName) then begin
 if (SearchRec.Name<>'')and
    (SearchRec.Name<>'.')and
    (SearchRec.Name<>'..')then begin form1.Memo2.Lines.Add(sFileName);
    MyRemoveDir(sFileName); end;
end;
iIndex := FindNext(SearchRec);
end;
FindClose(SearchRec);
Result := True;
end;