如何copy这样的一个文件？

[shmilyjiujiu]

\\192.168.0.213\共享\新建文本文档.txt，我想把这个文本文件copy到局域网上的一台机器里面，要求目录不变。请问应该如何实现呢？

[shmilyjiujiu]

哦，假设另一台机器的读写权限我已经具有～

[zhangheaaa]

试试这个
sourcefilename,targetfilename分别是源文件路径和目的文件存放路径。

procedure Filecopy(sourcefilename,targetfilename:string);
Var
S,T: TFileStream;
Begin
S:=TFileStream.Create( sourcefilename, fmOpenRead );
try
T:=TFileStream.Create( targetfilename, fmOpenWrite or fmCreate );
try
T.CopyFrom(S, S.Size ) ;
finally
T.Free;
end;
finally
　 S.Free;
end;
End;

[shmilyjiujiu]

请问zhangheaaa(竹)

要不要考虑路径的问题呢？就是说路径存在的话不创建，路径存在，直接copy～？？？？？？

[jzzm]

uses shellapi;
copyfile(pchar('newfile.txt'),pchar(\\192.168.0.213\共享\新建文本文档.txt),false);
\\192.168.0.213\共享\新建文本文档.txt 可以用变量来替代！