Thanks,
but I can't see that
procedure FindAllFiles(AList: TStrings; const SearchPath: String;
SearchMask: String = ''; SearchSubDirs: Boolean = True; DirAttr: Word = faDirectory);
or
function FindAllFiles(const SearchPath: String; SearchMask: String = '';
SearchSubDirs: Boolean = True): TStringList;
has any parameter FollowSymlinks.
The DirAttr are only faReadOnly, faHidden,faSysFile, faVolumeId,faDirectory,faArchive.
H