Backup com Winzip - Diretório de Origem

Delphi

05/02/2005

:) Boa noite a todos, se bem que vcs devem estar lendo pela manhã.
8) O problema é o seguinte: estou tentando com o código abaixo criar uma rotina para backup. apesar do tema já ter sido bastante discutido, não achei nada que se enquadrasse com o que eu quero.
Preciso gerar o arquivo BackSCOPBase.zip, utllizando o Winzip, mas eu não consigo, tá dando um erro de PAnsiChar. Alguém pode me ajudar.
ShellExecute(0,nil,´winzip32.EXE´, ´-a ´+ (Pchar(dir_2.Directory)) + ´\BackSCOPBase.zip´  ´c:\base\*.*´ ,nil ,sw_show);
Exit;
:lol: :wink:


Dbergkamps

Dbergkamps

Curtidas 0

Respostas

Edilcimar

Edilcimar

05/02/2005

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;


GOSTEI 0
Gandalf.nho

Gandalf.nho

05/02/2005

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


GOSTEI 0
Dbergkamps

Dbergkamps

05/02/2005

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


GOSTEI 0
Edilcimar

Edilcimar

05/02/2005

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


GOSTEI 0
POSTAR