Tenho um projecto em Delphi 2010 no qual utilizo para comprimir e criar backups o WinRAR, através do seguinte código eu consigo comprimir a seguinte pasta teste3
:
AFile := 'C:\teste1\teste2\teste3';
LocateFile := 'C:\Users\Desktop\BACKUPS\'+ FormatDateTime('yyyy-mm-dd', Now) +'.rar';
winexec(PAnsiChar(AnsiString('"C:\Program Files\WinRAR\WinRAR.exe" a '+ LocateFile +' "'+ AFile + '"')), SW_HIDE);
Mas o ficheiro comprimido não esta a aparecer como pretendia só com a pasta teste3
deixo aqui o exemplo do que pretendo.
Este é o directório da pasta teste3
:
C:\teste1\teste2\teste3
Estrutura:
c:
teste1
teste2
teste3
exemplo1.txt
exemplo2.txt
exemplo3.txt
ficheiro1.txt
ficheiro1.txt
Quando comprimido dentro do .rar
tenho:
ficheiro.rar
teste1
teste2
teste3
exemplo1.txt
exemplo2.txt
exemplo3.txt
O que pretendo:
ficheiro.rar
teste3
exemplo1.txt
exemplo2.txt
exemplo3.txt
Se alguém conseguir contribuir com alguma coisa agradeço.