delphi用相对路径就是不能复制文件烦..................老师帮我..

Question

 Copyfile('D:\delphi制作程序\data\ppsy.mdb','D:\delphi制作程序\databak\ppsy.tbf',false);这样用绝对路径没问题...要是用成相对路径就是不复制....tpath:=ExtractFilePath(Application.ExeName);
tname:='ppsy.tbf';
Copyfile('data\ppsy.mdb',pchar(Tpath+Tname),false);

Answer 1

相对路径是:tpath:=ExtractFilePath(Application.ExeName)+'databak\'; 
tname:='ppsy.tbf'; 
Copyfile('data\ppsy.mdb',pchar(Tpath+Tname),false);

Answer 2

tpath:=ExtractFilePath(Application.ExeName)+'databak\';
tname:='ppsy.tbf';
if not DirectoryExists('databak') then
  MkDir('databak');
Copyfile('data\ppsy.mdb',pchar(Tpath+Tname),false);

Answer 3

tpath:=ExtractFilePath(Application.ExeName)+'databak\';
tname:='ppsy.tbf';
if not DirectoryExists('databak') then
  MkDir('databak');
Copyfile('data\ppsy.mdb',pchar(Tpath+Tname),false);

Answer 4

tpath:=ExtractFilePath(Application.ExeName)+'databak\';
tname:='ppsy.tbf';
if not DirectoryExists('databak') then
  MkDir('databak');
Copyfile('data\ppsy.mdb',pchar(Tpath+Tname),false);