关于findfirst函数的问题!!????????????????????????????????????????

Question

关于findfirst函数的问题!!????????????????????????????????????????
var
arec:tsearchrec;
  attr:integer;
i:integer;
begin
     attr:=  faAnyFile;
   i:= findfirst('D:\', attr ,arec);    showmessage(inttostr(i));   while i=0 do
   begin
     listbox1.AddItem((arec.Name),nil);
     i:=findnext(arec);
  end;  findclose(arec);
end;
运行时i不能为0,到底是出了什么问题????????????????????

Answer 1

i:= findfirst('D:\', attr ,arec);
改成i:= findfirst('D:\*.*', attr ,arec);