获取目录下所有文件名 获取目录下所有文件名的代码
人气:0想了解获取目录下所有文件名的代码的相关内容吗，在本文为您仔细讲解获取目录下所有文件名的相关知识和一些Code实例，欢迎阅读和指正，我们先划重点：目录,文件名，下面大家一起来学习吧。
一：获取指定文件夹的文件 复制代码 代码如下:
procedure searchfile(path:string);//注意,path后面要有'\';
var
SearchRec:TSearchRec;
found:integer;
begin
found:=FindFirst(path+'*.*',faAnyFile,SearchRec);
while found=0 do
begin
if (SearchRec.Name<>'.') and (SearchRec.Name<>'..')
and (SearchRec.Attr<>faDirectory) then
ListBox1.Add(SearchRec.Name);
found:=FindNext(SearchRec);
end;
FindClose(SearchRec);
end;
二：获取该目录下的子目录的文件
复制代码 代码如下:
procedure SearchFile(path:string);
var
SearchRec:TSearchRec;
found:integer;
begin
found:=FindFirst(path+'*.*',faAanyFile,SearchRec);
while found=0 do
begin
if (SearchRec.Name<>'.') and (SearchRec.name<>'..) and
(SearchRec.Name=faDirectory) then
SearchFile(SearchRec.Name+'\')
else
LisBox1.Add(SearchRec.Name);
found:=FindNext(SearchREc);
end;
FindClose(SearchRec);
end;
加载全部内容