[Lazarus-es] ejecutar un CopyFile

[Martin Gomez]

Héctor,
La función CopyFile no hace raise de error, sólo devuelve un booleano
indicando si la copia funcionó.

http://wiki.lazarus.freepascal.org/CopyFile

por otro lado, creo que los #39 son innecesarios (puedo estar equivocado)


2017-07-11 7:20 GMT-03:00 hfiandor via Lazarus-es <
lazarus-es en lists.lazarus-ide.org>:

> 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
>
>
>
> _______________________________________________
> Lazarus-es mailing list
> Lazarus-es en lists.lazarus-ide.org
> https://lists.lazarus-ide.org/listinfo/lazarus-es
>
>


-- 
​
Most good programmers do programming not because they expect to get paid or
get adulation by the public, but because it is fun to program.
​ ​
*Linus Torvalds*
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20170711/3f095f87/attachment-0001.html>