Download file

[morika]

سلام
امیدوارم با این کد کسی دیگه مشکلی تو دانلود فایل از اینترنت نداشته باشه.
لطفا امتحانش کنید و به من خبر بدید.
ممنون
منبع: http://www.youtube.com/watch?v=mDLyIi5QQ1I




Public Function Downloadsomecrap()
Dim apadanaco As Net.WebClient = New Net.WebClient
Dim server As String = TextBox1.Text
apadanaco.DownloadFile(server, TextBox2.Text)
Return 0
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Downloadsomecrap()
End Sub