Fórum Backup com Winzip - Diretório de Origem #267563

este exemplo é de uma empresa com 4 lojas e salva em cd utilizando o winzip e funciona
If RadioGroup1.ItemIndex = 0 then
Caminho := ´D:\´
Else If RadioGroup1.ItemIndex = 1 then
Caminho := ´E:\´
Else If RadioGroup1.ItemIndex = 2 then
Caminho := ´F:\´
Else If RadioGroup1.ItemIndex = 3 then
Caminho := ´G:\´
Else If RadioGroup1.ItemIndex = 4 then
Caminho := ´H:\´
Else
Caminho := ´I:\´;
Dia := Copy(DateToStr(Date),1,2);
Caminho := Caminho + Dia +´\´;
If not DirectoryExists(Caminho) then
If not CreateDir(Caminho) then
Raise Exception(´Não foi possível criar o diretório ´ + Caminho);
If DirectoryExists(Caminho) then
Begin
Caminho := Caminho + NomeFilial;
WinExec(PChar(´C:\Arquivos de Programas\WinZip\WinZip32 -min -a -r ´´+Caminho+´´ ´
+ ´´´ + ´*.db´ + ´´´ + ´´´+Diretorio+ ´*.*´ + ´´´),1);
End;

Outra possibilidade é usar um componente de compressão como o [url=http://www.delphizip.net/index.html]Zipmaster[/url], ao invés do Winzip.

blz, ta funcionando.
Mas o arquivo tá sem nome, como colocar?

veja no meu exemplo que o nome tem caminho + nomefilial(este é o nome do arquivo)