请问怎么样识别一般文件和文件夹？

Question

请问怎么样识别一般文件和文件夹？if FindFirst('*', faArchive, sr) = 0 then//这列出了所有文件和文件夹了if (((sr.Attr and FileAttrs) = sr.Attr) and (sr.Name <> ’.’) and (sr.Name <> ’..’)) then //这列出了所有文件夹怎么样列出文件呢？

Answer 1

faReadOnly Read-only files
faHidden Hidden files
faSysFile System files
faVolumeID Volume ID files
faDirectory Directory files
faArchive Archive files
faAnyFile Any file包含faDirectory就是目录,否则就是文件

Answer 2

if (Find.Name <> '.') and (Find.Name <> '..') and ((Find.Attr and faDirectory)<> faDirectory) then解决了！！！