大家帮忙,如何复制文件到共享文件夹

Question

我想复制一个文件到局域网内的共享文件夹,代码这样写对吗?复制不成功呀
var
  sPath,dPath:string;
  spath:='c:\abc.txt';
  dpath:='\\lj\incomm\abc.txt';
  copyfile(pchar(dpath),pchar(spath),false);

Answer 1

你写反了
  copyfile(pchar(dpath),pchar(spath),false);
应改为
copyfile(pchar(spath),pchar(dpath),false);

Answer 2

\\lj  用IP试看看。还有它的共享有没有写的权限。

Answer 3

除了楼上说的,还有一个可能,就是那台机器登录需要密码.
你先手动登录那台机器一次,然后再运行程序试一试.
你的那段代码,我测试过了没有问题
var
  sPath,dPath:string;
  spath:='c:\abc.txt';
  dpath:='\\lj\incomm\abc.txt';
  copyfile(pchar(spath),pchar(dpath),false);