Ver Mensaje Individual
  #2  
Antiguo 18-02-2005
lucianojdg lucianojdg is offline
Miembro
 
Registrado: dic 2003
Posts: 42
Reputación: 0
lucianojdg Va por buen camino
Para solucionar el probema deberias utilizar la funcion de la siguiente manera:
CopyFile(PChar(Path), PChar(Path_New), FileExists(Path_New));
de esa forma no te va a dar error de Tipos, ademas te estaba faltando un parametro, el cual indica si el archivo existe o no, cosa que determinas con la funcion, FileExists(Path_New), por otro lado, es conveniente que verifiques si el directorio que estas creando existe.
Tu codigo deberia quedar algo paecido a esto:

//...
var
Path, Path_New : String;
begin

Path := ('C:\Prueba\Datos.txt');
Path_New := 'C:\Copia\Copia_Datos.txt';

if not DirectoryExists(C:\Copia) then
begin
Try
MkDir('C:\Copia');
Except
showmessage('Error al intentar crear el directorio: "C:\Copia"');
Exit;
end;
end;

Try
CopyFile(PChar(Path), PChar(Path_New), FileExists(Path_New));
Except
showmessage('Error al intentar copiar el archivo: "' + Path_New + '"');
Exit;
end;

end;
//...


Saludos
__________________
Luciano DG
Responder Con Cita