delphi FileSearch 获取指定文件夹下所有文件包括隐藏文件

procedure FileSearch(const PathName, FileName : string) ;

var Rec : TSearchRec;

Path : string;

begin

Path := IncludeTrailingPathDelimiter(PathName) ;

if FindFirst (Path + FileName, faAnyFile - faDirectory, Rec) = 0 then

try

repeat

ListBox1.Items.Add(Path + Rec.Name) ;

until FindNext(Rec) <> 0;

finally

FindClose(Rec) ;

end;

{

用法：FileSearch('C:\Users\Desktop\_recovery','*.ini'); 获取指定扩展名文件

用法：FileSearch('C:\Users\Desktop\_recovery','*.*'); 获取所有文件

}

end;

推荐分享