如何发送一个图像到Web服务器从目录

Imports System.Net.FtpWebRequest

Imports System.Net.NetworkInformation

 

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Try

'server path            

Dim clsRequest As System.Net.FtpWebRequest =_         

DirectCast(System.Net.WebRequest.Create("E:\Image.jpeg"), System.Net.FtpWebRequest)

            clsRequest.Credentials = New System.Net.NetworkCredential("USERNAME", "PASSWORD")

            clsRequest.Method = System.Net.WebRequestMethods.Ftp.UploadFile

            ' read in file...

'local path            

Dim bFile() As Byte = System.IO.File.ReadAllBytes("C:\Image.jpg")

            ' upload file...

            Dim clsStream As System.IO.Stream = _

                clsRequest.GetRequestStream()

            clsStream.Write(bFile, 0, bFile.Length)

            clsStream.Close()

            clsStream.Dispose()

            MsgBox("OVER.......!!!!!")

            Me.Close()

        Catch ex As Exception

            MsgBox(ex.Message, MsgBoxStyle.OkCancel)

            If MsgBoxResult.Cancel Then

                Me.Close()

            End If

        End Try

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Me.Close()

    End Sub

End Class