ارور در CANCEL کردن فایل های باز شده یا سیو شده

[soonami]

Dim s As String
cd1.ShowDialog()
s = cd1.FileName
Dim sr As New StreamReader(s)
Dim str As String = ""
While sr.Peek() >= 0
str &= sr.ReadLine
str &= vbCrLf
End While
sr.Close()
r1.Text = str


کد بالا برای باز کردن یک فایل متنی است در صورتی که کاربر از OPEN منصرف بشه و CANCEL بزنه ارور میده

برای رفع ارور باید چی کار کنم ؟؟؟

از TRY و... استفاده کنم

اکگر مقدور هسا در رفع ارور راهنمایی بفرمایید

[محسن شامحمدی]

فقط کافیه دستورتون این رو این طوری تغییر بدید
Dim s As String
If cd1.ShowDialog() = Windows.Forms.DialogResult.OK Then
s = cd1.FileName
Dim sr As New StreamReader(s)
Dim str As String = ""
While sr.Peek() >= 0
str &= sr.ReadLine
str &= vbCrLf
End While
sr.Close()
r1.Text = str
End If

[soonami]

ممنون خیلی کمک کردید