Pascal FAQ created by SLY Golovanov, 2:5020/278.13
              (slightly corrected by Valery Votintsev 2:5021/22)
==============================================================================

Q:> Ищу я все подкаталоги в данном каталоге
    процедурой FindFirst('*.*',Directory,Search),
    а она мне не только подкаталоги, но и все файлы находит.
    В чем дело?

A: Глюк MS-DOS.
   А именно, функции 4E прерывания 21.
   Hужно после каждого использования FindFirst/FindNext проверять,
   каталог ли ты нашел:

      if Search.Attr and (Directory <> 0) then begin [...] end;

---
 * Origin:  (2:5020/794.13)