findfirst....?
i denne linie "if findfirst(path+'*',$10,sr) <> 0 then" hvorfor finder den også filer?procedure TForm1.test(path : string);
var
sr : TSearchRec;
DirList : array of string;
begin
if findfirst(path+'*',$10,sr) <> 0 then memo1.lines.add('Error')
else
repeat
if (sr.Name <> '.') and (sr.Name <> '..') and (sr.Attr and $10 = $10) then
begin
memo1.lines.add(path+sr.Name);
test(path+sr.Name+'/');
end;
until FindNext(sr) <> 0;
findclose(sr);
end;
