کددانلودکردن

[محمدیزدانپناه]

کددانلودکردن ازسایت وکدارسال پیام ازسایت به کاربرواردشده به سایت

[محمدیزدانپناه]

کددانلوکردن ازسایت و کدارسال پیام از سایت به کاربرواردشده به سایت

[parsehvb]

این یکی برای دانلود




Dim mywebclient As New System.Net.WebClient

If TextBox1.Text <> "" And TextBox2.Text <> "" Then

Try

Dim mystring() As String

mystring = TextBox1.Text.Split("/")
TextBox2.Text = Application.StartupPath & "\" & mystring(mystring.GetUpperBound(0))
If My.Computer.Network.IsAvailable Then

mywebclient.DownloadFile(TextBox1.Text, TextBox2.Text)
MsgBox(mystring(mystring.GetUpperBound(0)) & " Downloaded Successfuly.", MsgBoxStyle.Information, "Information")
Else

MsgBox("Not Connected to network", MsgBoxStyle.Exclamation, "Error")
End If

Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error")
End Try

End If