您的位置:首页 > 编程语言 > Delphi

delphi遍历指定目录下指定类型文件的函数

2014-01-28 10:01 603 查看


delphi遍历指定目录下指定类型文件的函数

作者:admin 来源:未知 日期:2010-5-8 11:02:46 人气:551 标签:




遍历指定目录下指定类型文件的函数

// ================================================================

// 遍历某个文件夹下某种文件,

// 使用说明

//  _GetFileList(ListBox1.Items,'c:\*.doc');

// _GetFileList(MyTStringList,'c:\*.exe');

// ================================================================

procedure TForm1._GetFileList(AStrings: TStrings ; ASourFile: string);

var sour_path,sour_file: string;

TmpList:TStringList;

FileRec:TSearchrec;

begin

sour_path:=ExtractFilePath(ASourFile);

sour_file:=ExtractFileName(ASourFile);

if not DirectoryExists(sour_path) then

begin

AStrings.Clear;

exit;

end;

TmpList:=TStringList.Create;

TmpList.Clear;

if FindFirst(sour_path+sour_file,faAnyfile,FileRec) = 0 then

repeat

if ((FileRec.Attr and faDirectory) = 0) then

begin

TmpList.Add(sour_path+FileRec.Name)

end;

until FindNext(FileRec)<>0;

SysUtils.FindClose(FileRec);

AStrings.Assign(TmpList);

TmpList.Free;

end;

// ================================================================

// 遍历某个文件夹及子文件夹下某种文件,

// 使用说明

//  _GetFileList(ListBox1.Items, 'c:\', '*.doc');

// _GetFileList(MyTStringList, 'c:\', '*.exe');

// ================================================================

procedure _GetFileList(AStrings: TStrings; ASourFile,

FileName: string);

var sour_path,sour_file: string;

TmpList:TStringList;

FileRec, subFileRec:TSearchrec;

i: Integer;

begin

if rightStr(trim(ASourFile), 1) <> '\' then

sour_path :=trim(ASourFile) + '\'

else

sour_path :=trim(ASourFile);

sour_file:= FileName;

if not DirectoryExists(sour_path) then

begin

AStrings.Clear;

exit;

end;

TmpList:=TStringList.Create;

TmpList.Clear;

if FindFirst(sour_path+'*.*',faAnyfile,FileRec) = 0 then

repeat

if ((FileRec.Attr and faDirectory) <> 0) then

begin

if ((FileRec.Name<> '.') and (FileRec.Name <> '..')) then

_GetFileList(AStrings, sour_path+ FileRec.Name + '\', sour_file);

end

else

if FindFirst(sour_path + FileName,faAnyfile,subFileRec) = 0 then

repeat

if ((subFileRec.Attr and faDirectory) = 0) then

TmpList.Add(sour_path+subFileRec.Name);

until FindNext(subFileRec)<>0;

until FindNext(FileRec)<>0;

FindClose(FileRec);

for i := 0 to TmpList.Count -1 do

AStrings.Add(TmpList.Strings[i]);

TmpList.Free;

end;
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: