FTP WINDOWS CE 5.0

MHDS23 26/06/2014 12:54:14
#439197

Pessoal, boa tarde
Gostaria de ajuda de vcs...

tenho uma aplicação em vb.net 2008 para windows device e gostaria de saber como fazer upload de arquivo via ftp através do device

alguem tem um exemplo???


segue codigo que estou tentando usar

Public Sub EnviarArquivoFTP(ByVal caminhoArquivoFtp As String, ByVal arquivo As String)
[ô]Informe o nome servidor ftp ou ip
Dim ftphost As String = [Ô][Ô]

Dim caminhoFTP As String = [Ô]ftp://[Ô] & ftphost & [Ô]My Documents\[Ô] + TextBox1.Text + [Ô] [Ô] + [Ô]-[Ô] + [Ô] [Ô] + Label3.Text + [Ô].txt[Ô]
Dim ftp As WebRequest = DirectCast(WebRequest(caminhoFTP), WebRequest)

[ô]define as credenciais
ftp.Credentials = New NetworkCredential([Ô][Ô], [Ô][Ô])
[ô]define o tipo de ação
ftp.KeepAlive = True
ftp.UseBinary = True
ftp.Method = WebRequest.ftp.uploadfile
[ô]trata o retorno
Dim fs As FileStream = File.OpenRead(arquivo)
Dim buffer As Byte() = New Byte(CInt(fs.Length - 1)) {}
fs.Read(buffer, 0, buffer.Length)
fs.Close()
Dim ftpstream As Stream = ftp.GetRequestStream()
ftpstream.Write(buffer, 0, buffer.Length)
ftpstream.Close()
End Sub

não funciona para windows mobile - windows ce 5.0