Findfirst, findnext listing files but not directories... ?

Question

the following code lists files but not directories

var 
rec : tsearchrec;
begin
findfirst('c:\test\*',faanyfile-fadirectory,rec);
        showmessage(rec.Name);
if findnext(rec) <> 0 then close else
showmessage (rec.Name);
end;

Answer 1

What about findfirst('c:\test\*', faanyfile, rec); // not faanyfile-fadirectory

Answer 2

If you want all files and directories, just pass in faDirectory to findfirst. It's going to already return you files.

Answer 3

You explicitly excluded directories by stating " - faDirectory" in the flags parameter.

Answer 4

1. You need to NOT exclude the directories, which you unfortunately do with your (-faDirectory)
2. You have to call FindClose when you're done.
3. You need to loop if you want to find everything in the directory

var
 rec : tsearchrec;
begin
  if FindFirst('c:\*', faAnyFile, rec) = 0 then
  begin
    repeat
      ShowMessage(rec.Name);
    until FindNext(rec) <> 0;
    FindClose(rec);
  end;
end;