Hola!
Antes de que me hechen bronca debo decir que ya busque en varios hilos y no encuentro una respuesta para esto de como usar el CopyFile pues tengo problemas con los tipos string y pchar. Mi codigo:
Código Delphi
[-]
function TMDatos.CrearBackUp(DBAccessName: String): boolean;
var
BackUpDir, BackUpFile, respaldo : string;
begin
result := false;
BackUpDir := RutaAPP + '\Respaldos\';
BackUpFile := 'BkUP_' + DBAccessName;
Respaldo := (BackUpDir + BackUpFile);
if not FileExists(DBAccessName) then Exit;
try
CopyFile(pChar(DBAccessName), PChar(Respaldo), False);
Result := true;
except
Exit;
end;
end;
la variable RutaApp es:
Código Delphi
[-]
RutaAPP := ExtractFilePath(ParamStr(0));
La intencion es crear un respaldo de una BD Access en otra carpeta diferente de donde esta la aplicacion (Respaldos). El problema con este codigo es que cuando verifico el result en otra parte de la aplicacion me dice que el respaldo fue hecho con exito sin embargo no se crea absolutamente nada.
Si creo el respaldo en la misma carpeta de la aplicacion todo funciona OK
Código Delphi
[-]
CopyFile(pChar(DBAccessName), PChar(BackUpFile), False);
Gracias!