Copiar archivos

[RoyTan]

Saludos.

Me gustaría saber si hay algún hilo donde te expliquen como buscar un archivo, cambiarle de nombre y guardarlo en otra carpeta con código, porque no lo encuentro, se que soy un poco torpe, pero llevo toda la mañana buscando y nada.

Gracias.

[Casimiro Notevi]

Mira al final de esta página, justo abajo del todo.

[RoyTan]

Muchas gracias Casimiro.

[Casimiro Notevi]

Y si tienes alguna duda... aquí estamos :)

[nlsgarcia]

RoyTan,


Me gustaría saber si hay algún hilo donde te expliquen como buscar un archivo, cambiarle de nombre y guardarlo en otra carpeta con código

Revisa estos links relacionados para buscar archivos:

FindFirst:
http://www.delphibasics.co.uk/RTL.asp?Name=FindFirst

FindNext:
http://www.delphibasics.co.uk/RTL.asp?Name=FindNext

FindClose:
http://www.delphibasics.co.uk/RTL.asp?Name=FindClose

Revisa este link para cambiarle el nombre a un archivo:

RenameFile
http://www.delphibasics.co.uk/RTL.asp?Name=RenameFile

Revisa este link, en el cual se describen 5 métodos para copiar archivos:

http://www.clubdelphi.com/foros/showthread.php?t=81223


Espero sea útil :)

Nelson.

[nlsgarcia]

RoyTan,


como buscar un archivo, cambiarle de nombre y guardarlo en otra carpeta con código

Revisa este código:

// Método-1 de SearchCopyFile
procedure SearchCopyFile1(FromFileName, ToFileName : String);
var
searchResult : TSearchRec;
begin
if FindFirst(FromFileName, faArchive, searchResult) = 0 then
Copyfile(PChar(FromFileName),PChar(ToFileName),False);
end;

// Método-2 de SearchCopyFile
procedure SearchCopyFile2(FromFileName, ToFileName : String);
begin
if FileExists(FromFileName) then
Copyfile(PChar(FromFileName),PChar(ToFileName),False);
end;

El código anterior muestra dos formas de buscar y copiar un archivo (FromFileName) en la ruta y con el nombre que se requiera (ToFileName).

Espero sea útil :)

Nelson.

[Neftali [Germán.Estévez]]

Een la sección de trucos, también puedes encontrar varios códigos al respecto.