EXECUTAR CMD (BACKUP POSTGRESQL) E PEGAR RETORNO

FRACELO 22/08/2014 22:03:15
#440658

Amigos, estou executando o seguinte codigo abaixo, para explicar melhor, desejo fazer backup de um bando postgres e no final verificar se o backup deu certo ou não.
Procurando na net achei o seguinte codigo, mas ele fica travado ate o final e só ai ele mostra o resultado. Gostaria de ir mostrando linha a linha o processo de backup, vejam o que estou usando e se sabem uma dica de ir jogando em um textbox o resultado linha a linha.

Se souberem oura maneira de executar o backup do banco postgres usando o VB e pegar o retorno se deu certo ou não seria de grande ajuda.


Private Sub rodaCmd(comandoCmd As String)
Dim myProcess As Process = New Process
Dim s As String
myProcess.StartInfo.FileName = [Ô]c:\windows\system32\cmd.exe[Ô]
myProcess.StartInfo.UseShellExecute = False
myProcess.StartInfo.CreateNoWindow = True
myProcess.StartInfo.RedirectStandardInput = True
myProcess.StartInfo.RedirectStandardOutput = True
myProcess.StartInfo.RedirectStandardError = True
myProcess.Start()

Dim sIn As System.IO.StreamWriter = myProcess.StandardInput
Dim sOut As System.IO.StreamReader = myProcess.StandardOutput
Dim sErr As System.IO.StreamReader = myProcess.StandardError


sIn.AutoFlush = True
sIn.Write(comandoCmd & System.Environment.NewLine)
sIn.Write([Ô]exit[Ô] & System.Environment.NewLine)


If Not myProcess.HasExited Then
myProcess.Kill()
End If
txtSaida.Text = s
txtSaida.Visible = True
sIn.Close()
sOut.Close()
sErr.Close()
myProcess.Close()
End Sub