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

[ahmad19]

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

[aliebrahimi1900]

دوست عزیز من سورسو ندیدم ولی فکر کنم با یک Try مشکلت حل شه توی تایمر بزارش که اگه به مشکل خورد رد شه و دفعه بعد باز دان کنه اینجور فقط همون یه دفه رد میکنه توی 10 دقیقه بعد دوبار دانلود میکنه

[ahmad19]

ممنون از شما اما متوجه نشدم کجا بکار ببرم
من تصمیمم این بود تایمر رو کلا حذف کنم
الان با این کاری که شما می گید کارمون راه می افته

[aliebrahimi1900]

دوست عزیزTry برای مقابله با اروره که هرچی توی بلوک Try تا Catch نوشته اگه با ارور مواجه بشه بلوک Catch اجرا میشه


Try

'''''' هرچی توی بلوک تایمرت هست بزار اینجا

'''''''''اینجام میتونی مثلا یه لیبل به فرمت اضافه کنی و متنشو بزاری دانلود انجام شد
Label1.Text = "دانلود انجام شد"
Catch ex As Exception
''''''''' دانلود انجام نشد
Label1.Text = "دانلود انجام نشد"
End Try


اگه باز مشکل داشتی سورسو بزار اینجا نمیتونم فایلتو دانلود کنم

[ahmad19]

این سورس خدمت شما استاد بزرگوار

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

[ahmad19]

اگربشه همینو با زبون دیگه ای نوشت که راحت ترم اجرا بشه بهتر

[ahmad19]

کسی نبود کمکی بکنه؟