Cita:
Iniciado por luis404 
pues moverías para ahí tu código
If Err.Number = 0 Then
client.DownloadFileAsync(New Uri("http://archivo a descargar.rar"), "C:\archivo a guardar.rar")
Else
para abrirlo después de descargado
lo pones al final de tu método de descarga
Process.Start("ruta del Archivo")
en lo referente lo de ejecutar el archivo, obste por que abra el directorio donde dejo todas las descargas.
Código vb:
Ver originalPrivate Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click
Shell("explorer.exe C:\directorio", AppWinStyle.NormalFocus)
End Sub
pero sigo teniendo el problema que me informa de que el archivo ya existe y aun así procede a la descarga del mismo, saltando el mensaje de archivo descargado.
no debería parar al reportar error en MsgBox al encontrar que existe el archivo?.
no se algo estoy haciendo mal.
Código vb:
Ver originalPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim client As WebClient = New WebClient
AddHandler client.DownloadProgressChanged, AddressOf client_ProgressChanged
AddHandler client.DownloadFileCompleted, AddressOf client_DownloadCompleted
If IO.File.Exists("C:\nombre del archivo.exe") Then 'comprobamos si existe
MsgBox("El archivo ya esta descargado!", MsgBoxStyle.Exclamation, "Descargado!") 'si existe te salta una alerta
If Err.Number = 0 Then
client.DownloadFileAsync(New Uri("http://archivo a descargar.rar"), "C:\archivo a guardar.rar")
Else
MsgBox(Err.Description)
End If
Err.Clear()
End If
ProgressBar1.Visible = True
Label1.Visible = True
Label2.Visible = True
Label3.Visible = True
Button2.Text = "Descargando..."
Button2.Enabled = False
Button1.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button7.Enabled = False
End Sub
gracias por tu paciencia y ayuda, me sirvió bastante hasta ahora
.