delphi 文件搜索,遍历所有子目录
function ListFiles(path: string): TStringList; var SearchRec: TSearchRec; found: integer; begin result := TStringList.Create; found := FindFirst(path + '\' + '*.*', faAnyFile, SearchRec); if not DirectoryExists(path) then begin Result.Clear; exit; end; while found = 0 do begin if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') and (SearchRec.Attr <> faDirectory) then begin if ExtractFileExt(SearchRec.Name) = '.dfm' then result.Add(path + '\' + SearchRec.Name); end else if (SearchRec.Attr = faDirectory) and (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then begin Result.AddStrings(ListFiles(path + '\' + SearchRec.Name)); end; found := FindNext(SearchRec); end; FindClose(SearchRec); end;
http://blog.csdn.net/y281252548/article/details/51659208
- 上一篇 »php删除所有子目录及目录中的文件
- 下一篇 »Linux对一个目录及其子目录所有文件添加权限