请问，怎样把网络上一个电脑中的共享文件复制到本地硬盘上？

Question

如：我要把\\dfqt\新建文件夹\date 复制到我的d:\
应该在DELPHI中怎么实现？谢谢指教！

Answer 1

copyfile不知道怎么写啊，有朋友可以告知代码吗？

Answer 2

dephi里没有copyfile帮助的啊？应该到哪里去查？

Answer 3

Windows.CopyFilee(PChar(AFileName), PChar(Afile2)

Answer 4

Windows.CopyFile(PChar(AFileName), PChar(Afile2), false);

Answer 5

请问楼上高手，譬如我是网络计算机应该怎么写？网络计算机名:SALE\新建文件夹\data\*.*
应该怎么写在PChar(AFileName)中呢？非常感谢

Answer 6

COPYFILE(\\计算机名\新建文件夹\data\*.*,d:\data,false);这样写报错？请教正确写法。

Answer 7

procedure XcopyFile(SourceDir,TargetDir:String);
var
  OpStruc: TSHFileOpStruct;
  FromBuf, ToBuf: Array [0..128] of Char;
begin  FillChar(FromBuf, Sizeof(FromBuf), 0 );
  FillChar(ToBuf, Sizeof(ToBuf), 0 );
  StrPCopy(FromBuf, SourceDir+'*.*' );
  StrPCopy(ToBuf, TargetDir);
  With OpStruc do
  begin
   Wnd:= 0;
   wFunc:= FO_Copy;
   pFrom:= @FromBuf;
   pTo:=@ ToBuf;
   fFlags:= FOF_NOCONFIRMATION or FOF_SILENT;
   fAnyOperationsAborted:= False;
   hNameMappings:= Nil;
   lpszProgressTitle:= Nil;
  end;
 ShFileOperation( OpStruc );
end;