Ver Mensaje Individual
  #6  
Antiguo 02-12-2012
Avatar de nlsgarcia
[nlsgarcia] nlsgarcia is offline
Miembro Premium
 
Registrado: feb 2007
Ubicación: Caracas, Venezuela
Posts: 2.206
Reputación: 21
nlsgarcia Tiene un aura espectacularnlsgarcia Tiene un aura espectacular
RoyTan,

Cita:
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.

Última edición por nlsgarcia fecha: 02-12-2012 a las 22:43:19.
Responder Con Cita