有点格式好不好？
FindFirst(sour_path+sour_file,faAnyfile,FileRec) = 0 then 搜索出来的是所有文件
if ((FileRec.Attr and faDirectory) = 0) 表示要添加的是目录文件
语句:
if
((FileRec.Attr
and
faDirectory)
=
0)
then用于判断当前文件列表项是普通文件还是文件夹。注意：FindFirst函数和FindNext函数查找到的文件列表项包含普通文件和文件夹两种，如果FileRec
变量
的属性中包含faDirectory标志位则说明该列表项为文件夹，如果你不想搜索
子文件夹
的话应该把它过滤掉（你给出的
代码
就是采用这种做法），否则应对其进行递归处理。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024