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
[-]
procedure SearchCopyFile1(FromFileName, ToFileName : String);
var
searchResult : TSearchRec;
begin
if FindFirst(FromFileName, faArchive, searchResult) = 0 then
Copyfile(PChar(FromFileName),PChar(ToFileName),False);
end;
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.