请教如何将整个目录指定的文件拷贝到一指定的地方

Question

用FindFirst FindNext来找文件，
然后用
ExtractFileExt('filename','.dbf')=0 判断是否为dbf cdx文件

Answer 1

delphi中好像有一个函数是copy整个文件夹的。

Answer 2

备份文件代码var
p      :  SHFILEOPSTRUCT ;
str    :  string;
begin
   str:=GetCurrentDir();
   p.pFrom :=pchar(str+'\*.*');
   showmessage(p.pFrom);
   p.pTo   :=pchar(str+'\backup\');
   showmessage(p.pTo);
   p.wFunc :=FO_COPY;
   p.Wnd   :=Handle;
   p.lpszProgressTitle:= '请等待...';
   {设定操作选项}
   p.fFlags:= FOF_ALLOWUNDO       or FOF_NOCONFIRMMKDIR
              or  FOF_NOCONFIRMATION or FOF_FILESONLY ;
   try
      SHFileOperation(p);
   except
      messagedlg('备份文件出错!',mtError,[mbOk],0);
      exit;
   end;end;