请问，文件copy，move,del的命令是怎么写的？

Question

请问，我想把本地的文件写到网络上的一台机器，然后把本地的文件删掉！怎么写：（

Answer 1

Easy
用API的，详见MSDN
本地的文件写到网络上的一台机器： CopyFile
然后把本地的文件删掉：DeleleFile

Answer 2

CopyFile支持网上邻居的如果是远程就用FTP方法了

Answer 3

procedure TForm1.Button2Click(Sender: TObject);
var
  s : string;
  ss : string;
begin
  s:='abcdefj';
  ss:=copy(s,1,3);
  showmessage(ss);
  ss:=s;
  delete(ss,3,2);
  showmessage(ss);
end;

Answer 4

可以直接调用shellapi单元的filecopy还是copyfile函数，还是shellexecute调用出来的，偶记不太清楚了，但是那样会显示windows平常拷贝或是删除的进度条动画，所以不好，最好自己用tfilestream写一个

Answer 5

用copyfile函数，里面加入目的UNC路径就可以了

Answer 6

用ShellAPI吧，可以支持目录及文件移动！
uses
  ShellAPI;function MoveFilePath(const Handle: THandle; const SrcFile, DstFile: String): Boolean;
var
  SHFileOpStruct: TSHFileOpStruct;
begin
  if FileExists(SrcFile) or DirectoryExists(SrcFile) then
  begin
    FillChar(SHFileOpStruct, SizeOf(SHFileOpStruct), 0);
    SHFileOpStruct.Wnd := Handle;
    SHFileOpStruct.wFunc := FO_MOVE;
    SHFileOpStruct.fFlags := FOF_NOCONFIRMATION;
    SHFileOpStruct.pFrom :=  PAnsiChar(SrcFile);
    SHFileOpStruct.pTo := PAnsiChar(DstFile);
    Result := SHFileOperation(SHFileOpStruct) = 0;
  end
  else
    Result := False;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  if MoveFilePath(Self.Handle, 'D:\1', '\\panjun\Music\Shit') then
    ShowMessage('Copy成功！')
  else
    ShowMessage('Copy失败！')
end;
但目标文件要完全共享