文件复制的问题！

Question

在一个局域网中如何把另一台机器上的文件复制到本机上？
大家看看有什么好的办法。

Answer 1

也可以映射网络驱动器
函数WNetAddConnection2

Answer 2

我写copyfile(PChar('\\pc01\D:\aa.bmp'),PChar('D:\aa.bmp'),false);没有用啊，好象没有打开网络连接吧。具体怎么做啊？

Answer 3

最后一个参数改为true前提是你连上了那台机器

Answer 4

to：wlbfeihu(下辈子不写程序) 
映射网络驱动器应该怎么写代码啊？没有用过那个函数。
能不能给个例子看看啊。

Answer 5

function connectserver(localname, remotename, username,
  password: string): boolean;
var
  NetSource: TNetResource; Errinfo: longint;
begin
  with NetSource do begin
    dwType := RESOURCETYPE_ANY; //RESOURCETYPE_DISK
    lpLocalName := pchar(localname);
         // 将远程资源映射到此驱动器
    lpRemoteName := pchar(remotename);
        // 远程网络资 源
    lpProvider := '';
        // 必须赋值,如为空则使用lpRemoteName 的值。
  end;
  ErrInfo := WnetAddConnection2(NetSource, pchar(password), pchar(username), 0);
  result := (ErrInfo = NO_ERROR);
end;