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; 
 

相关阅读 >>

Delphi 快速获取文件大小（使用_lopen和fileseek，此函数可以快速获取文件大小，即使文件已经被其它程序锁定）

Delphi �c 如何使用datasnap获取作为标头传递的标记？

Delphi让form先于控件响应按键

Delphi listbox批量选中转移或删除

Delphi 判断网络是否连通

Delphi ip地址转换str字符

Delphi xe8安卓下汉字转gb2312

Delphi xe实现android 添加图片资源到应用并使用它

Delphi udp文件传输

Delphi 不用控件用函数实现发email

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi FileSearch 获取指定文件夹下所有文件包括隐藏文件