Buscar por:

Cópia de segurança simples

Código

var

  DataFormatada, CaminhoDoBD: String;

begin

  //Recebe o caminho do arquivo, poderia ser por uma entrada de texto,

  //como um Edit por exemplo

  CaminhoDoBd:= 'C:BDTESTE.FDB';

  //substitui os caracteres ":" e "/" da data para não

  //haver conflito com o nome do arquivo que vai ser gerado

  DataFormatada:= StringReplace(StringReplace(DateTimeToStr(Now),

  '/', '-', [rfReplaceAll]), ':', '.', [rfReplaceAll]);

  //se o arquivo a ser copiado existir...

  if FileExists(CaminhoDoBD) then

  begin

    //...copia para a mesma pasta,

    //acrescentando no nome, a data, hora e a tag [BKP]

    CopyFile(CaminhoDoBD,

    PChar(Copy(CaminhoDoBD, 0, Length(CaminhoDoBD) -4) + ' [BKP] '

    + DataFormatada + '.FBD'), True);

    DeleteFile(CaminhoDoBD);

  end;

end;

obs.: poderia ser feito sem a variável DataFormatada, mas eu a inclui por questão de organização

obs².: a variável CaminhoDoBD poderia ser uma constante se não for receber nenhum valor em tempo de execução