[Resolvido]Rotina para backup

Prezados,

Abaixo segue rotina para backup. A mesma foi criada com os vários exemplos que peguei aqui. Coloquei uma janela com um caixa de opção para a escolha da letra do pen drive, joga-se na variável VDRV. Entretanto, antes do comando do cópia do folder, chamo outra tela(ABERTURA) que mostra uma barra de progressão. O que está acontecendo é que a rotina executa a chamada da tela ABERTURA, mas, essa não aparece, depois a rotina executa o comando "xs.CopyFolder ..." e inicia a cópia. Só após da cópia terminada é que a tela ABERTURA aparece e a barra de progressão é executada, ou seja, depois do backup feito. Como faço para que a barra de progressão rode ao mesmo tempo em que a cópia é executada ?

Abç.

Alexandre

Private Sub Combinação4_Exit(Cancel As Integer)
If Not IsNull(Combinação4) Then
VDRV = Combinação4 ‘ VDRV variável declarada como privada string
End If
End Sub

Private Sub Comando6_Click() ‘ botão para acionar o backup
On Error GoTo Err_Comando6_Click

msg = MsgBox("Para iniciar o Backup confirme a opção !", vbYesNo, "Confirmação de Backup")
If msg = vbNo Then
Exit Sub
End If

Dim fsoObj As Scripting.FileSystemObject
Dim xs As Object
Dim PathInicial As String, PathFinal As String
Dim stDocName As String
Dim stLinkCriteria As String

If Dir(VDRV & ":\MaryKay", vbDirectory + vbHidden) = "" Then
MkDir VDRV & ":\MaryKay"
End If

MsgBox "Pen Drive Instalado ! Será iniciado o Backup. Tecle Ok e aguarde...."
Set fsoObj = Nothing
' ínicio Backup
stDocName = "ABERTURA"
DoCmd.OpenForm stDocName, , , stLinkCriteria
PathInicial = "C:"
PathFinal = VDRV & ":" 'Letra do Drive
Set xs = CreateObject("Scripting.FileSystemObject")
xs.CopyFolder PathInicial & "\" & "MaryKay", PathFinal & "\" & "MaryKay"
Set xs = Nothing


Exit_Comando6_Click:
Exit Sub

‘ Se der qualquer erro , pen drive não instalado, escolha errada da letra ou se
' durante a cópia o espaço for insuficiente, a rotina cai no On Erro abaixo.
Err_Comando6_Click:
MsgBox "Falha no Backup !!! Verifigue uma das opções abaixo e corrija." & Chr(10) & Chr(10) & "Pen Drive não instalado, Falta de espaço no Pen Drive ou Letra do Pen Drive diferente da opção escolhida " & VDRV & ":", vbCritical
Resume Exit_Comando6_Click

End sub

O comando para rodar a barra de progresso deve ficar no evento "No timer". Você precisa criar uma rotina para isso. No evento do botão, você define o intervalo do cronômetro para 1000 (1 segundo) ou menos ou mais conforme queria antes de executar o procedimento. Depois do procedimento, coloque o timer em zero de novo. Ou, se o timer fica sempre em execução para exibição de um relógio por exemplo, você precisa colocar uma condição para rodar a barra de progresso e parar nos momentos oportunos.

Prezado Criquio,

Obrigado pela dica e de ante-mão desculpe a ignorância, pois, estou engatinhando no Access. Se entendi bem coloco a chamada do programa "ABERTURA" (que tem a rotina da barra) no evento timer do mesmo botão que coloquei o comando do backup em on click.

No aguardo...

Alexandre

Estou a puxar o tópico para cima. se já tiver resolvido, agradeço o seu retorno.

Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.