delphi FindFiles获取目录下所有文件

本文整理自网络，侵删。

 
procedure FindFiles(FilesList: TStrings;Subdir : Boolean; StartDir, FileMask: string);
var
  SR: TSearchRec;
  DirList,DirlistOnly: TStringList;
  IsFound: Boolean;
  i,Count: integer;
begin
  If StartDir[length(StartDir)] <> '\' then
    StartDir := StartDir + '\';
  IsFound :=
    FindFirst(StartDir+FileMask, faAnyFile-faDirectory, SR) = 0;
  while IsFound do begin
   Begin
    FilesList.Add(StartDir + SR.Name);
    Count:= Count + Sr.Size;
   end;
    IsFound := FindNext(SR) = 0;
  end;
  FindClose(SR);

  // Build a list of subdirectories
  DirList := TStringList.Create;
  IsFound := FindFirst(StartDir+'*.*',
                        faAnyFile
                        , SR) = 0;
  while IsFound do begin
    if ((SR.Attr and faDirectory)<> 0) and
         (SR.Name <> '.') and   (subdir = true) and (sr.name <> '..') then
    Begin
      DirList.Add(StartDir + SR.Name);
    end;
    IsFound := FindNext(SR) = 0;
  end;
  FindClose(SR);

  // Scan the list of subdirectories www.delphitop.com
  for I := 0 to DirList.Count - 1 do
  Begin
    FindFiles(FilesList, SubDir,DirList[i], FileMask);
  end;
  DirList.Free;
end;

调用：FindFiles(Memo1.Lines,false,'c:\','*.*');
 

相关阅读 >>

Delphi 时间差函数及部分字符串与日期时间相互转换的函数

Delphi idhttp post

Delphi 与360

Delphi 检测进程是否存在函数

Delphi tdsauthenticationmanager的用法

Delphi安全结束线程

Delphi xe7中获得os平台和版本

Delphi firemonkey移动应用程序将设置保存到ini文件的示例

Delphi远程开机再配合远程控制

Delphi 线程中修改主窗体的控件内容

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

转载请注明出处：木庄网络博客 » delphi FindFiles获取目录下所有文件