BACKUP DE PASTAS

ELMO01 13/10/2009 08:05:41
#325121
Bom dia pessoal,

Como já postei aqui neste forum, fiz um sistema de backup, deu certo, mas quando quero que o ssitema compacta duas pastas diferentes, o sistema me mostra duas janelas de compactação.

Gostaria de saber se tem como fazer a compactação em separado, ou seja, faz-se uma e após alguns segundos inicia a compactação da segunda pasta.

Obrigado,
TECLA 13/10/2009 09:47:53
#325136 Resposta escolhida
Poste a rotina que está usando para fazer o BACKUP.
ELMO01 13/10/2009 10:21:16
#325148
Tecla - Obrigado por ter respondido.

Fiz esste sistema específico para os meus propósitos.

Estou utilizo as seguintes linhas de comando:

For X = 1 To 2
lblProgresso = [Ô]Iniciando Compactação[Ô]
lblProgresso.Refresh
compactador = [Ô]C:\ARJ32\ARJ32.EXE[Ô]
If X = 1 Then
Destino1 = Txt_DesCompactar.Text + Nome_Zipado.Text [ô] diretório para compactação + Nome do Arquivo
Arquivo1 = Txt_Compactar.Text + [Ô]*.* /Y[Ô] [ô] diretório de dados a ser compactado
Linha1 = compactador & [Ô] a -y -r [Ô] & Destino1 & [Ô] [Ô] & Arquivo1 [ô] Linha de comando para o ARJ
Else
Destino1 = Txt_DesCompactar.Text + Rst_ArqFtNom.Text
Arquivo1 = Txt_ResFot.Text + [Ô]*.* /Y[Ô]
Linha1 = compactador & [Ô] a -y -r [Ô] & Destino1 & [Ô] [Ô] & Arquivo1
End If
Compri1 = Shell(Linha1, vbNormalFocus) [ô] Linha de comando para o ARJ

Next X
lblProgresso = [Ô]Fim Compactação[Ô]
lblProgresso.Refresh
Sleep (10000)
lblProgresso.Visible = False
next x
TECLA 13/10/2009 11:29:40
#325158
Você pode acrescentar um TIMER com por exemplo, INTERVAL = 5000 (5 seg) e ENABLED = FALSE.

Quando você terminar a PRIMEIRA COMPACTAÇÃO, você habilita o TIMER (TIMER1.ENABLED = TRUE) que irá esperar 5 segundos para executar a próxima rotina.

No TIMER, você dá um duplo-clique e digita TIMER1.ENABLED = FALSE para que ele pare de executar após se passarem 5 seg.
Depois é só chamar a SEGUNDA COMPACTAÇÃO.

Deve resolver.
Tópico encerrado , respostas não são mais permitidas
Voltar