复制文件夹!

                            
复制文件夹的代码如下:   
  函数声明部分:    
  function   CopyDirectory(const   Source,   Dest:   string):   boolean;     //此处出错  
   
  函数定义部分:  
  function   CopyDirectory(const   Source,   Dest:   string):   boolean;  
  var  
  fo:   TSHFILEOPSTRUCT;    
  begin    
  FillChar(fo,   SizeOf(fo),   0);    
  with   fo   do    
  begin    
  Wnd   :=   0;    
  wFunc   :=   FO_COPY;    
  pFrom   :=   PChar(source+#0);    
  pTo   :=   PChar(Dest+#0);    
  fFlags   :=   FOF_NOCONFIRMATION+FOF_NOCONFIRMMKDIR   ;    
  end;    
  Result   :=   (SHFileOperation(fo)   =   0);    
  end;  
   
  调用时:  
    result:=CopyDirectory(s_path,d_path);  
   
  编译程序时出现错误,提示如下:  
  [Error]   u_bf_shuju.pas(42):   Unsatisfied   forward   or   external   declaration:   'Tbf_shuju.CopyDirectory'  
  出现在函数声明部门  
  怎么解决?  
  有更好的能用的其他代码吗?比如被复制的文件夹下还有子文件夹!  
 

查看回复