Buscar

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

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Arquivos
Adicionada dia: 09/04/10
Por: -=|PiRuKa|=-
Visualizada: 3870 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009