Ayuda con código para copiar

[DarkMan]

Código Delphi [-]
var
  Fos : TSHFileOpStruct;
  Buf : array[0..4096] of char;
  p : pchar;
  sDest : string;

procedure TBackup.Button1Click(Sender: TObject);
begin
  ABSRegistros.Connected :=False;
  FillChar(Buf, sizeof(Buf), #0) ;
  p := @buf;
  p := StrECopy(p,'C:\Windows\Regsdata\Registros.abs');
  sDest := 'e:\Registros.abs';
  FillChar(Fos, sizeof(Fos), #0) ;
  with Fos do
  begin
    Wnd := Handle;
    wFunc := FO_COPY;
    pFrom := @Buf;
    pTo := pChar(sDest);
    fFlags := 0;
  end;
  if ((SHFileOperation(Fos) <> 0) or (Fos.fAnyOperationsAborted <> false)) then
    Message1.MessageDlg('Error al copiar el archivo',mtWarning, [mbOK], 0);
end;

Empezado por radenf

¿ Es posible con un edit definir la carpeta de destino ?

Si, es posible, solo tienes que asignar a la variable 'sDest' el valor del 'Edit.text'.


Por cierto, el método copyFile si funciona, seguramente el fallo sea el mismo que el que estabas cometiendo en este código, que era no especificar el nombre final del archivo en la carpeta destino.

Un saludo.