title: Findfirst, findnext listing files but not directories...?
body: <p>the following code lists files but not directories</p>
  
  <pre><code>var 
  rec : tsearchrec;
  begin
  findfirst('c:\test\*',faanyfile-fadirectory,rec);
          showmessage(rec.Name);
  if findnext(rec) &lt;&gt; 0 then close else
  showmessage (rec.Name);
  end;
  </code></pre>