[Resolvido]Compactar com WinRar apenas o Arquivo...

Em um Código utilizado no Backup de um sistema do Avelino ele compacta a
base de dados porem compacta com as pastas desde o diretório raiz...

Como fazer para compactar apenas o arquivo?

Código:


            compri = shell(strLocalWinRar & "\Winrar\WinRAR.EXE a "
& Chr(34) & Replace(DestinoNovo, ".accdb", "") & ".rar"
& Chr(34) & " " & Chr(34) & DestinoNovo & Chr(34),
vbHide)


Grato pela ajuda.

Cumprimentos.

Bem amigos.. não consegui compactar apenas o arquivo, porém consegui a solução para o descompactar em uma pasta específica, sendo assim o problema fora resolvido.

compri = shell(strLocalWinRar & "\Winrar\WinRAR.EXE e " & Chr(34) & StrOrigem & Chr(34) & " " & Chr(34) & CurrentProject.Path & "\Base" & Chr(34), vbHide)

Cumprimentos.

http://maximoaccess.forumeiros.com/t13180-resolvidocriar-ficheiro-zip-ou-rar

Grato pela ajuda Mestre.

Abraços.