also das ist der code vom anderen prog:
Das ist das Form-Load Ereignis:
Zitat:
Me.Hide()
ShowDialog:
SaveFileDialog1.ShowDialog()
If SaveFileDialog1.FileName = Nothing Then
GoTo ShowDialog
End If
Pfad = SaveFileDialog1.FileName
Try
Me.Show()
httpclient = New WebClient
Dim URL As String = "http://meine-domain/ordner/ordner/programm.exe"
Application.DoEvents()
httpclient.DownloadFileAsync(New Uri(URL), Pfad)
Application.DoEvents()
Catch ex As Exception
MsgBox("Es ist folgender Fehler aufgetreten:" & vbNewLine & ex.ToString, MsgBoxStyle.Critical, "Es ist ein Fehler aufgetreten!")
End
End Try
|
Und das ist der code vom httpclient-downloadfilecompledet:
Zitat:
MsgBox("Die aktuelle Version wurde im angegebenen Verzeichnis gespeichert!", MsgBoxStyle.Information, "Erfolg")
Shell(Pfad)
|