[Lazarus-es] ejecutar un CopyFile

[hfiandor]

Estimados colegas:

 

En una aplicación necesito copiar un fichero .db

Tengo en el uses el FileUtil, el LazFileUtils y el LazUtils.

 

Hago lo siguiente:

try

    sour:=camino_BD+'\Clasificadores.db';

    sour:=#39 + sour + #39;  //para ponerle single quote

    dest:=camino_BD+'\Copia_Clasificadores.db';

    dest:=#39 + dest + #39;

mensa('sour: '+sour);

mensa('dest: '+dest);

    copyfile(sour,dest);

except

  On E:Exception do

  begin

    ShowMessage(E.Message);

  end;

end;

 

Hasta aquí, el programa no da error, aunque no copia el fichero.

Consulté el WikiLeaks y trato de hacerlo como se indica.

 

Si me pueden dar alguna ayuda, voy a aprender y agradecerlo mucho.

 

Saludos

Ing. Héctor F. Fiandor Rosario

 

------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20170711/3a2c66e5/attachment.html>