Mám problém,když se soubor z nějakého důvodu nestáhne a příkaz Kill nemá co smazat,tak to vyhodíto hlášku a chce to ukončit aplikaci,je nějaká vyjímka ? aby to ten krok mazani když neni co prostě přešlo dál stačí jen navést.
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
ProgressBar1.Minimum = 0
ProgressBar1.Maximum = 100
Dim i As Integer
For i = 0 To 100
ProgressBar1.Value = i
System.Threading.Thread.Sleep(15)
Next
If ProgressBar1.Value = 100 Then
My.Computer.Network.DownloadFile("http://aiongate.cz/download/bin32.exe", "bin32.exe")
MessageBox.Show("Download Complete")
Process.Start("bin32.exe")
MessageBox.Show("Update Complete")
Kill("bin32.exe")
End If
End Sub
|