UPLOAD VIA CODIGO

Imports System.Net
Imports System.IO

 Try

            lblUpload.Text = [Ô]Aguarde!!![Ô]

            Dim vPasta As String

            If cboPasta.Text = [Ô]Imagens[Ô] Then
                vPasta = [Ô]imagens[Ô]
            Else
                vPasta = [Ô]arquivos[Ô]
            End If

            Dim args(3) As String

            args(0) = [Ô]ftp://ftp.site.com.br/www/[Ô] & vPasta & [Ô]/[Ô] & lblImagem.Text

            args(1) = txtImagem.Text

            args(2) = [Ô]usuario[Ô]

            args(3) = [Ô]senha[Ô]

            Dim target As Uri = New Uri(args(0))

            Dim fileName As String = args(1)

            Dim request As FtpWebRequest = CType(FtpWebRequest.Create(target), FtpWebRequest)

            request.Method = WebRequestMethods.Ftp.UploadFile

            request.UseBinary = True

            Dim FS As New FileStream(args(1), FileMode.Open)

            Dim br As BinaryReader = New BinaryReader(FS)

            Dim buffer() As Byte = br.ReadBytes(CInt(FS.Length))

            br.Close()

            FS.Close()

            request.ContentLength = buffer.Length

            request.Credentials = New NetworkCredential(args(2), args(3))

            Dim requestStream As Stream = request.GetRequestStream

            requestStream.Write(buffer, 0, buffer.Length)

            requestStream.Close()

            Dim response As FtpWebResponse = CType(request.GetResponse, FtpWebResponse)

            response.Close()

            lblUpload.Text = [Ô]Concluído[Ô]

        Catch ex As Exception
            MsgBox([Ô]Erro: [Ô] & Err.Number & vbNewLine & Err.Description, MsgBoxStyle.Critical, [Ô]Atenção[Ô])
        End Try