ارور در هنگام کار کردن برنامه

[ahmad19]

سلام
دوستان من یه برنامه ای نوشتم با چند تا اجزای ساده که کارش فقط دانلود یه فایل خاص هست
برنامه تایمر داره و هر 10 دقیقه دوباره اجرا می شه
تو هارد چک می کنه اگه فایل موجود باشه پاکش می کنه و دوباره دانلودش می کنه
حالا مشکل من اینجاست که اگه تو این 10 دقیقه فایل کامل دانلود نشه یا یه لحظه ارتباط سرور از دست بره برنامه هنگ می کنه و ارور می ده و دیگه اجرا نمی شه تا ببندیش و دوباره بازش کنی
می خواستم ببینم اگه بخوام برنامه رو عوض کنم و مثلا جای تایمر رو بدم به یه متغیر که مثلا بعد از اتمام دانلود متغیر بشه 1 ، یه while باشه که چک کنه و هر وقت متغیر شد 1 فایل رو پاک کنه و دانلود رو مجدد شروع کنه و متغیر رو بکنه 0
این روش شدنیه و آیا جواب می ده برا همچین کاری؟
سورس فایل البته به زبان vb

Public Class Form1
    Dim retval As String
    Dim Directory As Object
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    End Sub
 
 
 
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If System.IO.File.Exists("c:\DVD5.iso") Then
            Kill("c:\DVD5.iso")
            My.Computer.Network.DownloadFile("http://79.175.171.82/DVD5.iso", "c:DVD5.iso")
        End If
 
 
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        retval = Dir$("c:DVD5.iso")
 
        If retval = "DVD5.iso" Then
 
            Kill("c:\DVD5.iso")
 
        Else
 
            My.Computer.Network.DownloadFile("http://79.175.171.82/DVD5.iso", "c:\DVD5.iso")
 
        End If
 
    End Sub
 
 
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        My.Computer.Network.DownloadFile("http://79.175.171.82/DVD5.iso", "c:DVD5.iso")
 
    End Sub
End Class