|
Public WithEvents web As New WebClient
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim num As String = "FILE DA UPLOADARE O INDIRIZZO DEL TUO SITO FTP")
Dim ftp As FtpWebRequest = WebRequest.Create(num)
ftp.Credentials = New NetworkCredential("USERNAME", "PASSWORD")
ftp.Method = Net.WebRequestMethods.Ftp.UploadFile 'QUI SCEGLI IL METODO
Dim sw As New StreamWriter(ftp.GetRequestStream) O READER A SECONDA DI COSA HAI SCELTO
sw.Write(Image.FromFile(Me.OpenFileDialog1.FileName)) O READ.......
sw.Close()
num = num.Replace("ftp", "http")
Me.TextBox1.Text = num
End Sub
End Class
| 
| 
