Pessoal o caso eh o seguinte:
Eu presciso em uma mesma funcao fazer as aseguintes operacoes na sequencia:
1 - Parar o servico MySql
2 - Fazer o backup dos dados
3- Reiniciar o servico
Tudo isso pra mim eh sem problema. O que acontece eh que nao dah tempo de parar o servico. Eu nao consigo primeiro parar ele e depois fazer o backup.
Ja tentei usar o DoEvents mas nao vai.
Olhem o codigo que faz essa rotina:
Private Sub btnCompacta_Click()
Dim ArqCompactado As String
Dim ArqOrigem As String
Dim Origem As String
Shell "net stop mysql", vbHide
DoEvents
Origem = DirBackup
If txNome = "" Then
MsgBox "Você tem de informar um nome de arquivo de backup valido.", vbInformation, "Aviso de Compactação."
txNome.SetFocus
Exit Sub
Else
ArqCompactado = Pasta_Destino.Path + "" & "link_" & txNome.Text + ".zip"
ArqOrigem = Origem + "" + "*.*"
lblProgresso.Visible = True
Compacta ArqCompactado, ArqOrigem
lblProgresso = ""
Shell "net start mysql", vbHide
DoEvents
Call LogBackup("Backup", txNome.Text & ".zip", ArqCompactado)
MsgBox "Arquivos compactados com sucesso!"
lblProgresso.Visible = False
End If
End Sub
O que vcs acham que eu poderia fazer???