Fórum Como mover Arquivos ? #296178

function CopiaMove(Operacao: Integer; Origem, Destino: String): Boolean;
var
  Dados: TSHFileOpStruct;
begin
  with Dados do
  begin
     Wnd := 0;
     case Operacao of
       0: wFunc := FO_COPY;
       1: wFunc := FO_MOVE;
     end;
     pFrom := PChar(Origem + #0);
     pTo := PChar(Destino  + 0);
     fFlags := FOF_ALLOWUNDO + FOF_RENAMEONCOLLISION + FOF_FILESONLY + FOF_NOCONFIRMATION;
  end;
  if SHFileOperation(Dados) = 0 then
    Result := True
  else
  begin
    Result := False;
    MessageDlg(´Não foi possível copiar o arquivo:´ + 13 +
      origem + Arquivo + ´ para a pasta ´ + 13 +
      destino, mterror, [mbok], 0);
  end;

end;

   CopiaMove(1,´c:\temp\arquivo.extensao´,´c:\backup\arquivo.extensao´);