DELPHI--查找目录下所有文件方法二
2012-01-17 21:12
639 查看
(1)查找指定扩展名的文件
procedure TForm1.Button1Click(Sender: TObject);
var
sr: TSearchRec;
begin
ListBox1.Items.Clear ;
if FindFirst('D:\work\*.*', faAnyFile, sr) = 0 then
begin
repeat
if pos('.xls',lowercase(sr.Name))>0 then
ListBox1.Items.Add(sr.Name) ;
until FindNext(sr) <> 0;
FindClose(sr);
end;
end;
(2)查找某目录下的所有文件,非目录
procedure TForm1.Button2Click(Sender: TObject);
var
sr: TSearchRec;
begin
ListBox1.Items.Clear ;
if FindFirst('D:\work\*.*', faAnyFile, sr) = 0 then
begin
repeat
if (sr.Attr and faDirectory)=0 then
ListBox1.Items.Add(sr.Name+ ' '+intToStr(sr.Attr)) ;
until FindNext(sr) <> 0;
FindClose(sr);
end;
showMessage(intToStr(ListBox1.Items.count));
end;
(3)查找某目录下的所有目录,包含 “.” “..”
procedure TForm1.Button2Click(Sender: TObject);
var
sr: TSearchRec;
begin
ListBox1.Items.Clear ;
if FindFirst('D:\work\*.*', faAnyFile, sr) = 0 then
begin
repeat
if (sr.Attr and faDirectory)<>0 then
ListBox1.Items.Add(sr.Name+ ' '+intToStr(sr.Attr)) ;
until FindNext(sr) <> 0;
FindClose(sr);
end;
showMessage(intToStr(ListBox1.Items.count));
end;
procedure TForm1.Button1Click(Sender: TObject);
var
sr: TSearchRec;
begin
ListBox1.Items.Clear ;
if FindFirst('D:\work\*.*', faAnyFile, sr) = 0 then
begin
repeat
if pos('.xls',lowercase(sr.Name))>0 then
ListBox1.Items.Add(sr.Name) ;
until FindNext(sr) <> 0;
FindClose(sr);
end;
end;
(2)查找某目录下的所有文件,非目录
procedure TForm1.Button2Click(Sender: TObject);
var
sr: TSearchRec;
begin
ListBox1.Items.Clear ;
if FindFirst('D:\work\*.*', faAnyFile, sr) = 0 then
begin
repeat
if (sr.Attr and faDirectory)=0 then
ListBox1.Items.Add(sr.Name+ ' '+intToStr(sr.Attr)) ;
until FindNext(sr) <> 0;
FindClose(sr);
end;
showMessage(intToStr(ListBox1.Items.count));
end;
(3)查找某目录下的所有目录,包含 “.” “..”
procedure TForm1.Button2Click(Sender: TObject);
var
sr: TSearchRec;
begin
ListBox1.Items.Clear ;
if FindFirst('D:\work\*.*', faAnyFile, sr) = 0 then
begin
repeat
if (sr.Attr and faDirectory)<>0 then
ListBox1.Items.Add(sr.Name+ ' '+intToStr(sr.Attr)) ;
until FindNext(sr) <> 0;
FindClose(sr);
end;
showMessage(intToStr(ListBox1.Items.count));
end;
相关文章推荐
- DELPHI--查找目录下所有文件
- Linux下使用find查找文件内容,跳过所有目录名成和指定子目录的方法
- 递归 / 迭代两种方法实现查找指定目录下所有文件
- python查找指定目录下所有文件,以及改文件名的方法
- linux查找目录下的所有文件中是否含有某个字符串
- linux查找目录下的所有文件中是否含有某个字符串
- JAVA基础 day22 File类的方法和应用 利用递归获取目录下的所有文件 Properties类的应用(和IO技术结合,存取配置文件) 打印流和合并流等功能类的学习应用 切割文件练习
- CMake处理多源文件目录及查找并使用其他程序库的方法
- 查找一个目录下的所有文件
- 企业必考面试题:查找/oldboy目录下所有7天以前的以log结尾的文件移动到/tmp下。
- PHP 遍历目录下的所有文件的方法
- Android--查找程序根目录下所有文件/Java IO操作
- 查找当前目录下所有文件中的文本:grep "text" * -nR
- VIM下,在文件及目录中查找字符串的方法 (vimgrep)
- Windows 在某个目录下的所有文件中查找包含某个字符串
- linux查找目录下的所有文件中是否含有某个字符串
- DEMO:查找c盘中的所有目录及文件
- Linux递归查找当前目录下含有某字符串的所有文件
- linux查找目录下的所有文件中是否含有某个字符串 (转)
- linux查找目录下的所有文件中是否含有某个字符串