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 Noteví]

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

[RoyTan]

Muchas gracias Casimiro.

[Casimiro Noteví]

Y si tienes alguna duda... aquí estamos

[[nlsgarcia]]

RoyTan,

Empezado por 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,

Empezado por RoyTan

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

Revisa este código:

Código Delphi [-]
// 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.