Q
qwert8008
Unregistered / Unconfirmed
GUEST, unregistred user!
为什么先搜索findresult:=findfirst(apath+ffilename,faanyfile+fahidden+fasysfile+fareadonly,fsearchrec);再搜索findresult:=findfirst(apath+'*.*',fadirectory,dsearchrec);麻烦高手解释一下!!!begin apath:=getdirectoryname(apath); findresult:=findfirst(apath+ffilename,faanyfile+fahidden+fasysfile+fareadonly,fsearchrec); try while findresult=0 do begin listbox1.items.add(lowercase(apath+fsearchrec.name)); findresult:=findnext(fsearchrec); end; findresult:=findfirst(apath+'*.*',fadirectory,dsearchrec); while findresult=0 do begin if ((dsearchrec.attr and fadirectory)= fadirectory) and not isdirnotation(dsearchrec.Name) then findfiles(apath+dsearchrec.name); findresult:=findnext(dsearchrec); end; finally findclose(fsearchrec); end; end;