遍历指定目录下的所有文件

//1.遍历指定目录下的所有文件   OldAPath 旧路径  AFile 文件扩展名   NewApath 新
//  路径

procedure tform1.FindFiles(OldAPath, AFile,NewApath: string);
var
 FindResult: integer;
 FSearchRec, DSearchRec: TSearchRec;
 NewApathName:String;
 function IsDirNotation(ADirName: string): Boolean;
 begin
   Result := ((ADirName = '.') or (ADirName = '..'));
 end;
begin
 if OldAPath[Length(OldAPath)] <> '/' then
   OldAPath := OldAPath + '/';
 if NewAPath[Length(NewAPath)] <> '/' then
   NewAPath := NewAPath + '/';
 FindResult := FindFirst(OldAPath + AFile, faAnyFile + faHidden +faSysFile + faReadOnly, FSearchRec); //在根目录中查找指定文

件
 try
   while FindResult = 0 do
   begin
     NewApathName:=copy(OldAPath,4,length(OldAPath));
     NewApathName:=copy(NewApathName,pos('/',NewApathName)+1,length(NewApathName));
     NewApathName:=NewApath+NewApathName;
     if DirectoryExists(NewApathName)=false then
       CreateDir(NewApathName);

     copyfile(pchar(OldAPath + FSearchRec.Name),pchar(NewApathName+FSearchRec.Name) ,false);   //拷贝文件
     FindResult := FindNext(FSearchRec); // 查找下一个指定文件
   end;
   FindResult := FindFirst(OldAPath + '*.*', faDirectory, DSearchRec);  //进入当前目录的子目录继续查找
   while FindResult = 0 do
   begin
     if ((DSearchRec.Attr and faDirectory) = faDirectory) and not IsDirNotation(DSearchRec.Name) then
       FindFiles(OldAPath + DSearchRec.Name, AFile,NewApath);   //递归调用FindFiles函数
     FindResult := FindNext(DSearchRec);
   end;
 finally
   FindClose(FSearchRec);
 end;
end;