UPLOAD DE ARQUIVOS - FTP VB.NET

CACAULIONCO 05/06/2013 10:11:49
#424407

Bom dia,

Sou nova no fórum e estou criando este tópico apenas para disponibilizar um código o qual foi de difícil resolução. Há diversos códigos similares disponíveis em diversos fóruns, porém nenhum funcionando corretamente.
O código à seguir realiza o UPLOAD de um arquivo em um FTP.
Código em VB

Dim clsRequest As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create([Ô]ftp://ftp.xxxxx.com.br/arquivo.txt[Ô]), System.Net.FtpWebRequest)
With clsRequest
.Credentials = New System.Net.NetworkCredential([Ô]usuario_ftp[Ô], [Ô]senha_ftp[Ô])
.Proxy = Nothing
.Method = System.Net.WebRequestMethods.Ftp.UploadFile
End With
Dim bFile() As Byte = System.IO.File.ReadAllBytes([Ô]C:\arquivo.txt[Ô])
Dim clsStream As System.IO.Stream = clsRequest.GetRequestStream()
With clsStream
.Write(bFile, 0, bFile.Length)
.Close()
.Dispose()
End With

Importante destacar a necessidade de inserir o endereço FTP + nome do arquivo: ftp://ftp.xxxxx.com.br/arquivo.txt

Espero que esse código seja útil