如何拷贝文件?100分(100分)

  • 主题发起人 主题发起人 kchsun
  • 开始时间 开始时间
K

kchsun

Unregistered / Unconfirmed
GUEST, unregistred user!
我要拷贝一个.mdb文件,以新建一个相同结构的数据库,如何做。
如把c:/a.mdb拷贝到d:/work/b.mdb。急!!!!!!!!!!
谢了!!!
 
用copyfile
BOOL CopyFile(

LPCTSTR lpExistingFileName, // pointer to name of an existing file
LPCTSTR lpNewFileName, // pointer to filename to copy to
BOOL bFailIfExists // flag for operation if file exists
);
 
in dos:
copy c:/work/b.mdb c:/a.mdb
in delphi
CopyFile('c:/work/b.mdb','c:/a.mdb',false);
 
建议:
用DELPHI 的 COPYFILE
该原形在 ./PROGRAM FILE/DELPHI/DEMO/DOC/FILMANEX/FMXUTILS.PAS
你可拷贝该文件到DELPHI 目录下
在你的程序中,加入
USES FMXUTILS
就可用COPYFILE 了

 
呵呵,是WINDOWS API 怎会在demos里呢?
 
menxin: COPYFILE这个函数delphi自己也有一个,就是guo_qpeter说的那个.
 
哪个东西里封装了不少文件操作API,实际上,是个简单的文件管理器的例子。
但写入了DELPHI HELP,也满有意思:-)
could this be done:
winexec('copy c:/a.mdb c:/b.mdb/y',sw_normal);//perhaps you want sw_hide
 
呵呵, copyfile可以得到100分:-)
来晚了:-(
 

procedure CopyFile(const FromF,ToF:String);
var
F1,F2:TFileStream;
begin
F1:=TFileStream.Create(FromF,4096,fmOpenRead);
F2:=TFileStream.Create(ToF,4096, fmCreate);
F2.CopyFrom(F1, F1.Size);
F1.Free;
F2.Free;
end;
可能有点小问题,可以看帮助解决。
 
补充一下, 数据库拷贝的时候, 如果建议了数据库索引, 如果文件名不相同,拷贝以
后好象不能直接使用(因为索引的问题), 可以在程序里动态建立一个新的数据库文件,
再把原来的数据库里的信息转移过来.或者拷贝完数据库后,进行重索引的操作就可以
了.

提问者kchsun好象都没有反应,是什么问题?
 
不好意思,昨天晚上进不了大富翁,今天把分给大家。
to cytown:你也有分,不白来。:-)
 
多人接受答案了。
 
后退
顶部