VF,什么老东西
  一定要在代码中实现吗。在deskvar
     
     filename:string;//目标库文件名
     source,target: TFileStream;
     
begin
     
     source:=TFileStream.Create('源库文件名',fmOpenRead );//支持路径、扩展名;
     try
       target:=TFileStream.Create(filename,fmOpenWrite or fmCreate);
       try
         if target.CopyFrom(source,source.Size)=source.Size then
           ShowMessage('成功备份到'+filename+'!!!');
       finally
         target.Free;
       end;
     finally
       source.Free;
     end;
top中不行吗再

解决方案 »

  1.   

    VF,什么老东西,早就没有升级版了。  一定要在代码中实现吗。在desktop中不行吗,再用下面的代码复制成你要的就行了。
    var
         
         filename:string;//目标库文件名
         source,target: TFileStream;
         
    begin
         
         source:=TFileStream.Create('源库文件名',fmOpenRead );//支持路径、扩展名;
         try
           target:=TFileStream.Create(filename,fmOpenWrite or fmCreate);
           try
             if target.CopyFrom(source,source.Size)=source.Size then
               ShowMessage('成功备份到'+filename+'!!!');
           finally
             target.Free;
           end;
         finally
           source.Free;
         end;
      

  2.   

    bde的DBF可不是和foxpro的dbf一样。borland曾经推出过一个dbf数据库,大概到了DBF IV 就不出了。
    可能是那个dbf,而你的dbf应该是foxpro dbf文件