在实际开发中经常需要遍历某个文件夹及其子文件夹下的文件,看到很多人不知道如何做,忍不住写段东西与大家分享。
procedure MakeTree(var slFile: TStrings;
const
FileExt:
string
);
var
Sr : TSearchRec;
Err : integer;
TrSize, FilePath : string ;
begin
Err: = FindFirst( ' *.* ' , $ 11 , Sr) ;
While (Err = 0 ) do
begin
if Sr.Name[ 1 ] <> ' . ' then
begin
if FileExt = '' then
slFile.Add(sr.Name)
else
begin
if AnsiUpperCase(Copy(sr.Name, Length(sr.Name) - 3 , 4 )) = AnsiUpperCase(FileExt) then
slFile.Add(sr.Name);
end;
end;
if ((Sr.Attr and faDirectory) <> 0 ) AND (Sr.Name[ 1 ] <> ' . ' ) then
begin
ChDir(Sr.Name) ;
MakeTree(slFile, FileExt);
ChDir( ' .. ' ) ;
end ;
Err: = FindNext(Sr) ;
end ;
end;
var
Sr : TSearchRec;
Err : integer;
TrSize, FilePath : string ;
begin
Err: = FindFirst( ' *.* ' , $ 11 , Sr) ;
While (Err = 0 ) do
begin
if Sr.Name[ 1 ] <> ' . ' then
begin
if FileExt = '' then
slFile.Add(sr.Name)
else
begin
if AnsiUpperCase(Copy(sr.Name, Length(sr.Name) - 3 , 4 )) = AnsiUpperCase(FileExt) then
slFile.Add(sr.Name);
end;
end;
if ((Sr.Attr and faDirectory) <> 0 ) AND (Sr.Name[ 1 ] <> ' . ' ) then
begin
ChDir(Sr.Name) ;
MakeTree(slFile, FileExt);
ChDir( ' .. ' ) ;
end ;
Err: = FindNext(Sr) ;
end ;
end;
slFile 传入一个字符串列表以保存得到的结果, FileExt 为 '' 可以遍历所有文件,FileExt 指定为 ".Txt" 或者 ".mp3" 可以指定查询文件的后缀名.
如果需要将目录也返回,可以修改一下代码。