findfirst,findnext,怎么得不到呢，请教

Question

procedure xxx(tfn,rootd,dn:string);
var
   f1,f2:textfile;
   s1,s2:string;
  sr: TSearchRec;
  FileAttrs: Integer;
begin
    FileAttrs := 0;
    FileAttrs := FileAttrs+faAnyFile;
    FindFirst(rootd, FileAttrs, sr);
    s1:=sr.Name;
      repeat
            IF sr.Name=dn THEN BEGIN            END ELSE BEGIN
                IF NOT(sr.Name='') THEN xxx(tfn,rootd+sr.Name,dn);
            END;      until FindNext(sr) <> 0;
      FindClose(sr);end;sr.name始终为空，不晓得用findfirst是不是有什么先决条件

Answer 1

一个很简单的遍历目录的程序，可是我老是得不到目录，用的findfirst，不晓得为啥子