[fpc-pascal]FindFirst

[md]

I experienced the same thing and used opendir( ) and readdir( ) type
functions.

Mark

Hinrich Donner wrote:
> 
> Hi,
> 
> FindFirst,FindNext (of SysUtils) does not work:
> 
> uses
>   sysutils;
> 
> procedure testff(const s: string);
> var
>   sr: tsearchrec;
> begin
>   if findfirst(s,faAnyFile,sr)=0 then repeat
>     writeln(sr.name);
>   until findnext(sr)<>0;
>   findclose(sr);
> end;
> 
> begin
>   testff('/home/hd/.openxp/autoexec/*');
> end.
> 
> The directory contains a lot of files eg. 11466e4d.pkt, 446D1F3F.PKT, but
> only '.' and '..' will be returned. The same is by using '*.*' insted of
> '*'.
> 
> Any hints?
> 
> Hinrich
> 
> --
> Hinrich Donner
> 
> _______________________________________________
> fpc-pascal maillist  -  fpc-pascal at lists.freepascal.org
> http://lists.freepascal.org/mailman/listinfo/fpc-pascal