Abbrevia - Backup

[Bicicleta]

Salve salve...

Achei um componente na net chamado Abbrevia para fazer backup de arquivos em Zip/Cab (http://sourceforge.net/projects/tpabbrevia/)...

Está funciona perfeitamente, só tem um problema... Ao invés de ele adicionar somente o arquivo ele coloca a estrutura de diretórios onde está esse arquivo... Vejam:

Minha aplicação está rodando em:

"d:\sistema\empresa01\appTeste\programa.exe" e junto nessa mesma pasta está o BD: bancodados.mdb, então coloquei um componente TAbZipper no formulário e no onClick do botão isso aqui:

var arqBancoDados, localSalvar, nomeArqBackup : String;

arqBancoDados := "d:\sistema\empresa01\appTeste\bancodados.mdb";

localSalvar := "d:\sistema\empresa01\appTeste\backup\";

nomeArqBackup := 'Backup ('+ FormatDateTime('yyyy-mm-dd hhnnss', Now) +').zip';

adoConexao.Connected := false;

abZipper.FileName := localSalvar + nomeArqBackup;

abZipper.AddFiles(arqBancoDados, 0);

abZipper.Save;

abZipper.CloseArchive;

adoConexao.Connected := true;

Funciona que é uma beleza, o problema é que o arquivo compactado preserva a estrutura de pastas que tenho, ou seja, fica assim:

"Backup (2006-05-25 171300)" e dentro desse arquivo assim:

+-- sistema

+---- empresa01

+------ appTeste

+-------- bancodados.mdb

Eu queria que fica sem essas pastas, fica somente o arquivo e mais nada... Alguém sabe como posso fazer isso?

Valeu!!!

[Vivendo&Aprendendo]

Fiz isso mas continua dando erro:

Directory Does not Exist.

Meu código esta dessa forma:

      Zip.BaseDirectory := IncludeTrailingPathDelimiter(EdtOrigem.Text);
      Zip.StoreOptions := [soRemoveDots, soRecurse];
      Zip.FileName := EdtDestino.Text+'\'+FormatDateTime('[dd-mm-yyyy] [hh-mm]',now)+'.zip';
      Zip.AddFiles(Zip.FileName,0);
      Zip.CloseArchive;
      Zip.Save;

Não sei o que pode estar errado.

[Vivendo&Aprendendo]

:unsure: