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.

[radenf]

Muchas gracias por tu aporte DarkMan, apenas llegue a casa lo pruebo. Respecto al método Copyfile probé con múltiples rutas y nunca logré que copiara nada. Tengo que señalarte que yo soy absolutamente inexperto y lo que hasta ahora he logrado ha sido probando y equivocándome, desafortunadamente hay muchas cosas de código que no se encuentran en los libros o manuales.

Saludos y nuevamente muchas gracias

[radenf]

Eternamente agradecido DarkMan,funcionó a la perfección y evitándome crear todas las excepciones tales como, directorio inexistente, sobreescribir archivo, etc.

Un gran saludo