Listing out all the ifles in a folder

a sceleton

procedure FindFile(PathFileName : string; IncludeSubDirs : Boolean);
var
srec : TSearchRec;
Path, FileName : String;
begin
Path := ExtractFilePath(PathFileName);
FileName := ExtractFileName(PathFileName);
// CurrentDirectory
if findfirst(PathFileName,faanyfile,srec) = 0 then
begin
 repeat
   If Not(srec.attr and fadirectory > 0) then
   begin

          // FileFound do something with it
          // maybe add to list or count it
          showmessage('Found :'+Path+SRec.Name);

   end;
 Until findnext(srec) <> 0;
end;
FindClose(SRec);
{ SubDirectories }
If IncludeSubDirs then
begin
 if FindFirst(Path+'*.*',FaAnyFile,Srec) = 0 then
 begin
   repeat
     // StartRecursion
     if not(Srec.Name[1] = '.') and (srec.attr and fadirectory > 0)then
       FindFile(Path + Srec.Name + '\' + FileName,IncludeSubDirs)
   Until findnext(srec) <> 0;
 end;
 FindClose(SRec);
end;
end;

modify it for your needs

meikl ;-)

You can use TSearchRec instead of TWIN32FindDataA and use the function FindFirst, FindNext and FindClose.
It would be something like:
procedure TForm1.Button1Click(Sender: TObject);
var
  MySearchRec: TSearchRec;
  Count: Integer;
begin
    if FindFirst('C:\Data', faAnyFile, MySearchRec) > 0 then begin
        Count := 1;
        while FindNext(MySearchRec) <> 0 do
            Inc(Count);
        FindClose(MySearchRec);
    end;
    ShowMessage('There are '+ IntToStr(Count) + ' files!');
end;

Why am I always posting at the same time as meikl?

:)

>Why am I always posting at the same time as meikl?

don't know, DeNavigator

:-))

ziolko, your code works but instead of listing the exact number, it lists out an extra 2.....

navigator,
          ur code gives me 12655296 files, that is way too much, my folder has only 600+ files.

ziolko counts also the . and .. entries

denavigator seems to be random->not initalized count-var
-> just change
   if FindFirst('C:\Data', faAnyFile, MySearchRec) > 0 then begin

into
begin
   if FindFirst('C:\Data}*.*', faAnyFile, MySearchRec) > 0 then begin

this will be also then count the . and .. entries              

meikl ;-)

Stupid me, that's what you get when not using Delphi to type your code! :(
The line
  if FindFirst('C:\Data', faAnyFile, MySearchRec) > 0 then begin
should read
  if FindFirst('C:\Data', faAnyFile, MySearchRec) = 0 then begin

and the line
  while FindNext(MySearchRec) <> 0 do
should be
  while FindNext(MySearchRec) = 0 do

oops, overlooked this :-))

DeNavigator

wouldnt :

>while FindNext(MySearchRec) = 0 do
always return 0 ? thus never leaving the while loop?

maybe, maybe not, delphi`s on my laptop. Ill try it later
Regards
Smurff

Smurf, FindNext returns 0 when a next file is found. As soon as all files have been found FindNext returns some value other then 0.

navigator, the same problem occurs. maybe u missed out something ?